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

CategoriesРусский языкПредмет

наконец с 15 15 яблок сколько яблок собрали со всех 15 яблонь?

Ответы:

var a,b:byte,

begin

a:=0,

for b:=1 to 15 

a:=a+b,

write(a),

end.