Hãy viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10.
Uses crt;
Var S, i: integer;
Begin
clrscr;
S : = 0;
for i:=1 to 10 do S := S + i;
writeln (S);
readln;
end.
Hãy viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10.
Uses crt;
Var S, i: integer;
Begin
clrscr;
S : = 0;
for i:=1 to 10 do S := S + i;
writeln (S);
readln;
end.