В каждой больничной палате четыре койки. Введите количество палат, количество больных мужчин и количество больных женщин. Определите, можно ли разместить всех больных по палатам (естественно, в одну палату кладут больных одного пола).

Question

Информатика

Тарасий

19 марта, 14:12

В каждой больничной палате четыре койки. Введите количество палат, количество больных мужчин и количество больных женщин. Определите, можно ли разместить всех больных по палатам (естественно, в одну палату кладут больных одного пола).

+2

Ответы (1)

Знаете ответ на вопрос?

Римма · Answer 1

var n, m, f, m1, f1:integer;

begin

readln (n, m, f) ;

m1:=m mod 4;

if m10 then m1:=1;

f1:=f mod 4;

if f10 then m1:=1;

if n>=m div 4+f div 4+m1+f1 then writeln ('mojno') else writeln ('nelzya') ;

end.