напишите программу в Pascalсергей мучается ожирением в процессе голадания он каждую

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

Задать свой вопрос
1 ответ

PROGRAM zhirobas;

VAR  

MASSA:REAL;

NED:INTEGER;

BEGIN

MASSA:=150;

NED:=0;

WHILE (MASSAgt;=97) DO

BEGIN

MASSA:=MASSA-MASSA*0.03;

NED:=NED+1;

END;

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

END.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт