Найти сумму 10 натуральных чисел (использовать цикл While).
Найти сумму 10 натуральных чисел (использовать цикл While).
Ответ(ы) на вопрос:
Гость
Var y,i:integer;
begin
while i<=10 do
begin
y:=y+i;
i:=i+1;
end;
Write(y);
End.
Не нашли ответ?
Похожие вопросы