Сделайте программку(письменно):У бабушки в шкафу спрятана банка с вареньем. В банке

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

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


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт