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!