Напишите программу в pascal сергей страдает ожирением - вопрос №9497156 от wami56 16.10.2022 01:41

Question

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

wami56 · 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.