Здраствуйте, пожалуйста, помогите по информатике составить програму по примеру:…

Question

40

Здраствуйте, пожалуйста, помогите по информатике составить програму по примеру: Programe… var… .: realbeginwrite ('… .='): readln (… .): формула и дальшеЗадача. Троим толстунам дали на десерт кремовые пирожные. Масса одного пирожные составляла х кг, а масса Толстяков в соответствии х 1 кг, 2 кг, х 3 кг. Первый Толстяк съел n пирожных. Каждый следующий Толстяк съедал в два раза больше предыдущего, но при этом все они не могли съесть больше, чем половина их собственной массы. Сколько пирожных съели Толстяка?

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

spane7 · Accepted Answer

51

spane7

14 февраля 2024

Вот что-то написала, работает вроде правильно, но программа несколько раз пишет результат, мучалась, не знаю, как это исправить, но ответ верный выдаетuses crt; var x1,x2,x3,x,n,s: integer; beginreadln (x); readln (x1); readln (x2); readln (x3); readln (n); s: =0; if (x*n

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: