Составит программу нахождения суммы натуральных чисел от 1-100

Составит программу нахождения суммы натуральных чисел от 1-100
Гость
Ответ(ы) на вопрос:
Гость
var   i, sum : integer; begin   sum := 0;   for i := 1 to 100 do sum := sum + i;   writeln (sum); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы