Задание:
Составьте программу решения следующей задачи: с первой яблони собрали одно яблоко, со второй 2 яблока, с третьей 3 яблока, с четвертой 4 яблока и т.д. инаконец с 15 — 15 яблок сколько яблок собрали со всех 15 яблонь?
Решение:
Var a,b: byte; begina: =0; for b: =1 to 15 a: =a+b; write (a); end.
Знаете другой ответ?