Cách For do
Program BTH;
uses crt;
var s,i:longint;
Begin
clrscr;
For i:=1 to 5 do s:=s+i;
writeln('Tong cac so tu 1 den 5 la: ',s);
readln;
end.
Cách While do
Program BTH;
uses crt;
var s,i:longint;
Begin
clrscr;
While i<>5 do
Begin
i:=i+1;
s:=s+i;
end;
writeln('Tong day so tu 1 den 5 la: ',s);
readln;
end.
Đây nha bạn hai cách luôn nha đã test cả rồi ko sai đâu