Гекторович
6 год назад
Составьте программу вычисления суммы натуральных чисел от 20 до 99 с использование оператора while
ОТВЕТЫ
Марин
Jul 3, 2019
Var i, sum: integer;
begin
sum := 0;
i := 20;
while i lt;= 99 do
begin
sum := sum + i;
inc(i);
end;
writeln(sum);
end.
begin
sum := 0;
i := 20;
while i lt;= 99 do
begin
sum := sum + i;
inc(i);
end;
writeln(sum);
end.
208
Смежные вопросы:
