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