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. здесь, как я понимаю, вводимые данные не могут быть <= нулю, поэтому нулевые и отрицательные варианты не рассматривались
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.
здесь, как я понимаю, вводимые данные не могут быть <= нулю, поэтому нулевые и отрицательные варианты не рассматривались
2) -0,2(-14t+ z-2y) = 2,8t - 0,2z + 0,4y
3) (-3,1x+7,8y-9,6)×0,1= - 0,31x + 0,78y - 0,96
4) (0,7x-0,6y+0,5z)×(-1,5p) = - 1,05xp + 0,9yp - 0,75zp
5) (3,98-7,36)-(5,98-10,36) = 3,98 - 7,36 - 5,98 + 10,36 = 14,34 - 13,34 = 1
6) 9,38-(-10+5,38) = 9,38 + 10 - 5,38 = 10 + 4 = 14
7) -8,76-(-3,25-10,,76) = - 8,76 + 3,25 + 10,76 = 2 + 3,25 = 5,25
8) -6,19+(-1,5+5,19) = - 6,19 - 1,5 + 5,19 = - 1 - 1,5 = - 2,5
9) -(-21,4+12,7)+(20,4+12,7) = 21,4 - 12,7 + 20,4 + 12,7 = 21,4 + 20,4 =
= 41,8