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

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