Математика 92бетегі номер8
4класс

Троянская война, описанная Гомером, случилась на рубеже XIII-XII веков до нашей эры. Но дело в том, что в этот период времени всё восточное Средиземноморье просто кипело. Случились такие "события" как Вторжение дорян на Пелопоннесс, Нашествие народов моря на Египет, падение Хеттского царства, Катастрофа бронзового века. На смену мирному бронзовому веку пришла эпоха упадка и нерерывных войн.

Троя тоже пострадала от этих войн. В культурном слое, относящемуся к этому периоду, найдены следы пожарищ, человеческие останки, наконечники стрел. То есть война была, а всё остальное - имена героев, их действия и мотивация - может быть вымыслом

Program uborka;
var a,b,c: integer; //количество вещей в стопках
    k: real; //минимальное количество ходов. вещественное, т.к. результат деления
    sa: integer; //среднее арифметическое. к-во вещей должное быть в каждой стопке
begin
  writeln ('введите a, b и c через пробел');
  readln (a, b, c);
  if ((a+b+c) mod 3) = 0 //если сумма вещей делится на 3 нацело  
     then begin 
          sa:=((a+b+c) div 3); //среднее арифметическое выражаю через результат целочисленного деления, т.к иначе конфликт типов
          k:=(abs(sa-a)+abs(sa-b)+abs(sa-c))/2; //к-во шагов - это половина суммы модулей разности СА и каждой полки
          writeln (k)
         end
    else writeln ('IMPOSSIBLE')
end.



program shariki;
{n - всего шариков (от 0 до 100 вкл)
a - время на надувание 1-го шарика (от 1 до 100 вкл)
k - мах кол-во шариков, которое понадобится надуть одному из 2-ух мальчиков 
t - мин кол-во времени на надувание всех шариков двумя мальчиками}
var n, a, k, t: integer;   begin
  writeln ('введите n и a через пробел');
  readln (n,a);
  k:=(n div 2)+(n mod 2);//делим к-во шариков на 2 мальчика и прибавляем лишний при наличии
  t:=k*a;
  writeln (t)
end.



program otoplenie;
{k - кол-во кубометров на 1 батарею (<=2*109)
h - высота комнаты (<=105)
w - ширина комнаты (<=105)
l - длина комнаты  (<=105)}
var h, w, l, k, v, n: integer;     
begin
  writeln ('введите h, w, l, k через пробел');
  readln (h, w, l, k);  
  n:=((h*w*l) div k); 
  if ((h*w*l) mod k)>0 then n:=n+1;  
  {делим объем комнаты на объем воздуха для одной батареи (берем только целую часть). 
  если нацело не делится, то к целому от деления прибавляем еще 1 батарею для обогрева остатка}
  writeln (n)
end.
здесь, как я понимаю, вводимые данные не могут быть <= нулю, поэтому нулевые и отрицательные варианты не рассматривались