Составьте программу решения следующей задачи: с первой яблони собрали одно яблоко, со второй 2 яблока, с третьей 3 яблока, с четвертой 4 яблока и т. д. и наконец с 15 - 15 яблок сколько яблок собрали со всех 15 яблонь?

Question

Авдотьюшка

21 декабря, 00:54

+2

Ответы (1)

Знаете ответ на вопрос?

Деня · Answer 1

Var a, b:byte;

begin

a:=0;

for b:=1 to 15

a:=a+b;

write (a) ;

end.