Giup vs ngay mai cô kt r Viet chuong trinh tinh tong S=2+4+6+8+10+........+100 Hay Viet bang 2 cach : for...do va while...do

2 câu trả lời

For do:

program fordo;

uses crt;

var i:integer;

      S:longint;

begin clrscr;

       S:=0;

   for i:=1 to 100 do

       S:=S+i;

   write('Tong S la: ',S);

readln;

end.

While do:

program whiledo;

uses crt;

var i:integer;

      S:longint;

begin clrscr;

       S:=0; i:=1;

   while i<=100 do

     begin

       S:=S+i; i:=i+1;

     end;

   write('Tong S la: ',S);

readln;

end.

Học tốt!