Напишите программу в pascal сергей страдает ожирением - вопрос №9496479 от НикитаКлючников 02.03.2022 06:18

Question

Информатика: Напишите программу в pascal сергей страдает ожирением в процессе голадания он каждую неделю скидывает 3%от предыдущего веса, изночально он весил 150кг в машину он влезет когда будет весить 97кг через сколько недель он влезет в машину?

НикитаКлючников · Answer

PROGRAM zhirobas;

VAR

MASSA:REAL;

NED:INTEGER;

BEGIN

MASSA:=150;

NED:=0;

WHILE (MASSA>=97) DO

BEGIN

MASSA:=MASSA-MASSA*0.03;

NED:=NED+1;

END;

WRITELN('Через ',NED,' недель Сергей влезет в машину')

END.