Напишите программу на PascalABC для решения задачи: мальчик решил накопить деньги. В первый месяц он отложил a рублей, а каждый следующий месяц он откладывал на d рублей больше, чем в предыдущий. Сколько рублей мальчик накопит за n месяцев?
More Questions From This User See All
Answers & Comments
ОТВЕТ:
Var a, d, n, i, otv: integer;
begin
read(a,d,n); - ввод всех значений
otv:=a; - в переменную где будет храниться
for i:=1 to n do ответ записываем начальный взнос
begin
a:=a+d; - увеличиваем в цикле взнос
otv:= otv + (a); - добовляем взнос к нашему ответу
end;
writeln(otv); - выводим ответ
end.