Ежедневно мама дает сыну на 1 рубль больше суммы предыдущего дня (начиная с 1 руб). Сколько мальчик накопит за год?

составить в паскале программу вычисление

(циклом)

Программа.

var q, s:integer;

begin

s:=1;

for q:=1 to 365 do

s:=s+q;

Writeln (s) ;

end.

Описание программы.

var q, s:integer; / / Объявление переменных, где q - цикл от 1 до 365, s - сумма результата.

begin / / Начало выполнение программы.

s:=1; / / Присваиваем переменной s значение 1, т. к. по условию 1 рубль.

for q:=1 to 365 do / / Цикл от 1 до 365

s:=s+q; / / Сумма цикла. То есть - Сумма = Сумма + Цикл с шагом 1. Начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня.

Writeln (s) ; / / Вывод результата.

end. / / Конец выполнение программы.