Найти сумму 10 натуральных чисел (использовать цикл While).

Question

Найти сумму 10 натуральных чисел (использовать цикл While).

Answer 1

Var y,i:integer;
begin
while i<=10 do<br>begin
y:=y+i;
i:=i+1;
end;
Write(y);
End.