В каждой больничной палате четыре койки. Введите количество палат, количество больных мужчин и количество больных женщин. Определите, можно ли
10-11 класс
|
разместить всех больных по палатам (естественно, в одну палату кладут больных одного пола).
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.
Другие вопросы из категории
вычислить y = 1!+2!+3!+...+n!, где n>1 (в паскале)
Читайте также
Тронувшись с места, автомобиль каждую секунду увеличивает скорость на а км/ч.
На этом участке дороги существует ограничение V км/ч. Выяснить, через сколько полных секунд автомобиль превысит предельно допустимую скорость V?
Задача №2
Даны действительные числа а, b, c. Определить, можно ли построить треугольник со сторонами а, b, c или нет
Язык ПАСКАЛЬ =)
составить фразу "Зимняя олимпиада-в Сочи!".
<Фамилия> <Имя> <Количество баллов>
Вывести в другой файл фамилии и имена тех учеников, которые получили больше 80 баллов. ( Программу написать на Паскале)
это его последний элемент, разве нет?
Код:
program s1;
var x, i:integer;
al, tl: array of real;
begin
writeln ('Введите количество ступеней ракеты'); read (x);
setlength (al, x);
setlength (tl, x);
for i:=1 to x do begin
writeln ('Введите ускорение ', i, ' ступени'); read (al[i]);
writeln ('Введите время работы ', i, ' ступени'); read (tl[i]);
end;
end.
P.S.: Переписать массив в статический не предлагать, нужен именно переменной длины. Заранее спасибо.
изготовление единицы продукции для каждого из типов оборудования приведены в таблице. В ней же указаны общий фонд рабочего времени каждого из типов оборудования, а также прибыль от реализации одного изделия данного вида. Определить такой объем выпуска каждого из изделий, при котором общая прибыль от их реализации является максимальной. Что произойдет с общей прибылью, если прибыль от продажи продукции вида 4 вырастет втрое? Как изменится общая прибыль, если предприятию будет необходимо выпускать не меньше 1 единиц продукции 3? Если увеличить время использования фрезерных станков на 80 станко-часов, то можно ли будет уменьшить время использования других станков?