Question

Составьте циклический алгоритм сложения первых 10 натуральных чисел.

Плиз очень надо.

Answer 1

program zzz;
var a, i, s: integer ;
begin
s:=0;
for i:=1 to 10 do
s:= s + i;
WRITELN (' сумма первых десяти чисел равна  ' , s);
end.