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