Вхідні дані
| Вихідні дані
|
M=500г, n=5, m1=10 г,x=10,y=100г
| Цукатів взагалі не залишилося
|
M=1000г, n=3, m1=15 г,x=5,y=100г
| Цукати залишаться, їх вистачить коку для прикрашення торта
|
M=300г, n=10, m1=2г,x=13,y=150г
| Цукати залишаться, їх не вистачить коку для прикрашення торта
|
Корабельне щуреня за хднів з’їло n m1x грамів цукатів, а всього на початку подорожі було m грамів ласощів.
За умови m-n*m1x=0 -цукатів взагалі не залишилося,
m-n*m1x>0 -цукати залишаться.
Коку потрібно у цукатів, а залишилосьm-n*m1x.
Розглянемо m-n*m1x=> y -цукати залишаться, їх вистачить коку для прикрашення торта,
m-n*m1x< y -цукати залишаться, але їх не вистачить коку для прикрашення торта.
Запишемо складену умову так
якщоm-n*m1x=0товивести<цукатів взагалі не залишилося>
Інакше
якщоm-n*m1x >= yтовивести <цукати залишаться, їх вистачить коку для прикрашення торта>
інакшевивести <цукати залишаться, але їх не вистачить коку для прикрашення торта>
Приведемо програму:
Program ship;
Var m, n, m1, x, y:integer;
Begin
Readln(m, n, m1, x, y);
If m-n*m1x=0then writeln(‘цукатів взагалі не залишилося’) else if
m-n*m1x >= ythen writeln(‘цукати залишаться, їх вистачить коку для прикрашення торта’) else writeln(‘цукати залишаться, але їх не вистачить коку для прикрашення торта’);
readln;
end.
2.11. Задано три дійсних числа а, с, х. Якщо жодне з них не дорівнює нулю, то визначте добуток цих чисел, інакше знайти їх суму.