Em hãy viết chương trình tính tổng các số lẻ từ 1-1000 sử dụng vòng lặp xác định vào không xác định

0 bình luận về “Em hãy viết chương trình tính tổng các số lẻ từ 1-1000 sử dụng vòng lặp xác định vào không xác định”

1. —————Vòng lặp không xác định—————

   program tt;

   uses crt;

   var i: integer;

        S: longint;

   begin

   clrscr;

   S:=0;

   i:=1;

   while(i<1000) do

   begin

       S:=S+i;

       i:=i+2;

   end;

   writeln(‘Tong cua cac so le tu 1 den 1000 la: ‘,S);

   readln;

   end.

   —————Vòng lặp xác định—————

   program tt;

   uses crt;

   var i: integer;

        S: longint;

   begin

   clrscr;

   S:=0;

   for i:=1 to 1000 do

   begin 

       if(i mod 2 <> 0) then S:=S+i;

   end;

   writeln(‘Tong cua cac so le tu 1 den 1000 la: ‘,S);

   readln;

   end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var s,i : integer;

   Begin

   Clrscr;

   i:=1 ;

   While i<1000 do

   Begin

   If (i mod 2=1) then S:=S+i;

   End;

   Write(‘tong le la’,S)

   Readln

   End.

   Bình luận