Question

ПРОГРАММА НА ПАСКАЛЕ! Мальчик решил копить монеты. В первый месяц он отложил а монет, а каждый следующий месяц откладывал на b монет больше, чем в предыдущий. Сколько монет мальчик накопит за m месяцев?​

Answer 1

Ответ:

program Moneybox;

var

   months, a, b: integer;    

   

procedure moneybox(months: integer; a: integer; b: integer);

var

   i, amount: integer;    

begin

     

   i:= 1;

   amount:= 0;

   while i <= months do begin

     amount:= amount + a;

     a:= a + b;

     i:= i + 1;

   end;

   

   write('money in moneybox: ');

   writeln(amount);

   

end;

begin

   writeln('input a: ');    

   readln(a);

   

   writeln('input b: ');

   readln(b);

   

   writeln('input quantity of months: ');

   readln(months);

   

   moneybox(months, a, b);

end.

Объяснение: