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

Question

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

Answer 1

48

maximka

21 февраля 2023

Program FatBoys; Var x, x1, x2, x3: Real; n, n2, n3, i: Integer; BeginWrite ('x='); ReadLn (x); Write ('x1='); ReadLn (x1); Write ('x2='); ReadLn (x2); Write ('x3='); ReadLn (x3); Write ('n='); ReadLn (n); If x*n > x1/2 ThenWriteLn ('Первый толстяк не смог бы съесть столько пирожных') ElseBeginFor i: =1 To 2*n DoBeginIf (n2*x+1) <= x2/2 Thenn2: =n2+1ElseBreak; End; For i: =1 To 2*n2 DoBeginIf (n3*x+1) <= x3/2 Thenn3: =n3+1ElseBreak; End; WriteLn ('Вместе толстяки съели ', n+n2+n3, ' пирожных'); End; ReadLn; End.

пользователи выбрали этот ответ лучшим

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

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

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

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