Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

var n,m,f,m1,f1:integer;
begin
readln(n,m,f);
m1:=m mod 4;
if m1<>0 then m1:=1;
f1:=f mod 4;
if f1<>0 then m1:=1;
if n>=m div 4+f div 4+m1+f1 then writeln(mojno) else writeln(nelzya);
end.