theknow14
23.09.2022 00:22

ВШкола проводит олимпиаду для 5, 6-х классов. Участников рассаживают так, чтобы за одной партой не сидели ученики из одной параллели. За каждую парту сажают по 2 ученика - один учащийся 5-го класса и один из 6-го. Если такое невозможно, то за парту сажают одного ученика. В каждом кабинете по n парт. На вход программы в одной строке через пробел подаются 3 целых неотрицательных не превышающих 109 числа: количество учащихся 5-го, количество учащихся 6-го класса и количество парт в кабинете n (n > 0).

В результате работы программа должна вывести одно целое число – минимальное количество кабинетов для рассадки пришедших на олимпиаду учащихся.

Пример

Входные данные

Выходные данные

1 50 10

надо

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nazarshariu77
12.04.2020 12:35

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.

0,0(0 оценок)
Ответ:
Синуэлла
26.05.2023 22:13
Var a,i,k1,k2,s1,s2:integer;
begin
for i:=1 to 3 do begin
 readln(a);
 if a>0 then begin
  writeln('Число ',a,' положительное');
  k1:=k1+1; s1:=s1+a;
 end else if a<0 then begin
  writeln('Число ',a,' отрицательное');
  k2:=k2+1; s2:=s2+a;
 end;
 end;
writeln('Количество положительных = ',k1,', их сумма = ',s1);
writeln('Количество отрицательных = ',k2,', их сумма = ',s2);
end.

Пример:
15
Число 15 положительное
-74
Число -74 отрицательное
28
Число 28 положительное
Количество положительных = 2, их сумма = 43
Количество отрицательных = 1, их сумма = -74
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота