Необходимо перевести код Pascal на C ++ Uses crt;
Var X,X1,X2,X3:real; {Х – вес пирожного,
Х1,Х2,Х3 – вес Тоостунов}
N,Counter : integer; {N – количество пирожных, что
съел первый Толстяк;
Counter – общее количество
съеденных пирожных}
Begin
Clrscr;
Write(‘Введите вес пирожного: ’);
Readln(Х);
Write(‘Введите вес Толстяков (соответственно первого,
второго и третьего): ’);
Readln(X1, X2, X3);
Write(‘Введите количество пирожных, что съел первый
толстяк ’);
Readln(N);
If (X<=0)or(X1<=0)or(X2<=0)or(X3<=0)or(N<=0)
Then writeln(‘Ложные входные данные’)
Else
Begin
Counter:=N; {Съел первый Толстяк}
If N*2*X<=X2/2
Then Counter:=Counter+2*N
Else Counter:= Counter+ trunc(X2/2/X);
If N*4*X<=X3/2
Then Counter:=Counter+4*N
Else Counter:= Counter+ trunc(X3/2/X);
Writeln(‘Количество съеденных пирожных составляет: ’,
Counter);
End;
Readkey;
End.
Задача:Трем толстякам подали на десерт кремовые пирожные. Масса одного пирожного составляла х кг, а
масса толстяков соответственно х1, х2 и х3 кг. Первый толстяк съел n пирожных. каждый последующий
толстяк съедал два раза больше, чем предыдущий, но при этом все они не могли съесть больше,
половины их собственного веса. Сколько пирожных съели толстяка?

BigAwto    1   15.10.2020 15:07    0