Для заезда в оздоровительный лагерь организаторы решили заказать автобусы. известно, что в лагерь собираются поехать n детей и m взрослых. каждый автобус вмещает k человек. в каждом автобусе, в котором поедут дети, должно быть не менее двух взрослых. определите, удастся ли отправить в лагерь всех детей и взрослых, и если да, то какое минимальное количество автобусов требуется для этого заказать. входные данные на вход программы поступают 3 натуральных числа, записанных через пробел - n, m и k, каждое из них не превосходит 10 000. выходные данные выведите количество автобусов, которые нужно заказать. если же отправить всех в лагерь невозможно, выведите 0 (ноль
Ответы
Const n=10; var a: array[1..n] of integer; p,k: integer; i: byte; begin randomize; p: =1; k: =0; for i: =1 to n do begin a[i]: =random(21); if (a[i]> 0) and (a[i] mod 6 =0) then begin p: =p*a[i]; k: =k+1; end; end; println (a); if k> 1 then writeln ('произведение элементов, кратных 6, = ',p) else if k=1 then writeln ('найден всего 1 элемент, кратный 6, - ',p) else writeln ('нет элементов, кратных 6') end. примеры: 15 7 14 14 1 17 4 2 20 10 нет элементов, кратных 6 12 11 16 1 20 6 0 8 7 20 произведение элементов, кратных 6, = 72 14 6 8 3 15 7 14 5 19 15 найден всего 1 элемент, кратный 6, - 6
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Найди длину окружности L и площадь круга 5 заданного радиуса R
Автор: sashaleb88
Вывести все целые числа построчно на отрезке [a, b) Pascal ABC
Автор: alfaduk24908
Інформатика 7 клас ть, це кр
Автор: baxirchik
var
a: array[1..35] of integer;
b,c,d: integer;
i: real;
begin
for b: =1 to 35 do
a[b]: =random(49)+132;
for b: =1 to 35 do
write(a[b],' ');
writeln;
for b: =1 to 35 do
if a[b]> 159 then c: =c+1;
for b: =1 to 35 do
if a[b] mod 3=0 then write(b,' ');
writeln;
for b: =1 to 35 do
if a[b]> d then d: =a[b];
writeln(d);
for b: =1 to 35 do
i: =i+a[b];
i: =i/35;
writeln('средний рост: ',i: 0: 3);
end.