Question

Создайте программу(письменно): У бабушки в шкафу спрятана банка с вареньем. В банке 650 г варенья. Внук Коля разведал, где банка, и начав с одной ложки, каждый день сьедал на 1 ложку варенья больше. Сколько граммов варенья в банке обнаружит бабушка через N дней, если известно, что в каждую ложку, съеденную внуком, помещается 5 г варенья? Помогите пожалуйста) Буду благодарна

Answer 1

Var v,n,d:integer;
begin
v:=650;
write ('Введите количество дней: ');
readln (n);
for d:=1 to n do v:=v-5*d;
if v>0 then writeln ('Через ', n,' дней бабушка обнаружит ',v, ' граммов варенья в банке')
else writeln ('Через ', n,' дней бабушка обнаружит пустую банку')
end.