Напишите программу в pascal сергей страдает ожирением в процессе голадания он каждую неделю скидывает 3%от предыдущего веса, изночально он весил 150кг в машину он влезет когда будет весить 97кг через сколько недель он влезет в машину?
hobitmaksovtize
3
01.10.2019 09:10
1
Другие вопросы по теме Информатика
SteeISeries
23.09.2019 15:04
AHOHUM3321
23.09.2019 15:03
Ксения200612
16.10.2020 10:02
Snupian
16.10.2020 10:02
КсюшаЛор
16.10.2020 10:10
googlman
16.10.2020 11:00
katjashaposhnik
16.10.2020 11:00
sparksfiyfdgghffgg
01.05.2019 10:04
Кролик200
01.05.2019 08:50
Популярные вопросы
- Гусiнь метелики кончики рогатi жуки усi вони народжуються з личинок...
3 - 331. Поставте іменнікі у потрібному відмінку. З ясуйте Особливості...
2 - Напишіть 10 речень зі словами Why,When,How,Where,What...
2 - 8. SO4 2-, NO3 -, H3O +, NH4 +....
3 - Будівельна бригада профтехучилища в кількості 5 чоловік за 4 години...
3 - В древней Руси особый,тайный смысл видели в имени человека.Оно было...
1 - Яка темпа міфу Немейський лев...
3 - 7. В фундаменте дома возникают в основном деформации A: сдвига;Б: кручение;B:...
2 - Task 5 - Choose the correct signal word to each sentence.always / every...
2 - Текст разделить на 3 части и озаглавить их, например: 1 часть: 1-3...
3
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.