Viết chương trình tính tổng sau s=2+4+6+8...+100 sử dụng lệnh while-do
2 câu trả lời
Program BTH;
Uses Crt;
var s:longint;
i:byte;
Begin
clrscr;
s:=0;
while i<=100 do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong day so tren la: ',s);
readln;
end.
program Tin_hoc;
uses crt;
var i,s:integer;
begin
clrscr;
i:=0;
s:=0;
while i<=100 do
begin
s:=s+i;
i:=i+2
end;
writeln('S=',s);
readln;
end.
