Составте программу нахождения суммы чисел 10+11+12+...+40
Составте программу нахождения суммы чисел 10+11+12+...+40
Гость
Ответ(ы) на вопрос:
Гостьvar
a, b: integer;
begin
for a := 10 to 40 do
b := b + a;
writeln(b);
end.
Не нашли ответ?
Похожие вопросы