Лось 23 и0тулы изуали,больше. сколько провода порэлектричества в двух комнатах? 67. на поир блузок швейная мастерская школы идовала 53 м 50 см ткани, а на пошив юбок — на и25 см меньше. сколько ткани израсходовала мастет.на пошив блузок и кбок? и68. 1) в магазин 5 мешков муки, по 30 кгдом. в течение недели продавали по 20 кг мукисколько килограммов муки осталось через недели? 2) на двух полках стоят по 10 банок с компотом итрёх полках по 12 банок. сколько всего банок с клуминтом стоит на полках? 69. напишите 6 чисел, которые больше чем 380 и менътчем 400. каждое число уменьшите на 197. напишитевиде примеров.204условия

Показать ответ

Ответ:

oforange

03.01.2023 04:07

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.
здесь, как я понимаю, вводимые данные не могут быть <= нулю, поэтому нулевые и отрицательные варианты не рассматривались

0,0(0 оценок)

Ответ: