Выполни вычисления. Разными покажу подробно. Если в большие единицы переводим, то делим. В меньшие- умножаем. Лучше разбивать не круглые числа, тогда считать проще, последняя цифра числа всегда останется в тех единицах наименьших, если она не ноль.
Можно в см и 1см в мм, чтоб не все переводить 8дм -38мм= 8•10см- (30+8)мм= 80см - ( (30мм:10)+8мм)= (79см+ 1см)- (3см +8мм)= (79см +1•10мм )- 3см -8мм= 79см -3 см + 10мм -8мм = 76см + 2мм = 7 дм 6 см 2 мм
Или в см все 58м 62см• 6= (58•100см+62см)•6= (5800см+62см)•6=5862см•6= 35172см= (35100см+70см+2см)= 35100см:100+70см:10+2см= 351м 7 дм 2 см
5)) при делении лучше переводить сразу в меньшие все 1км= 1000м; 71км 456м ÷7= (71•1000м+456м):7= 71000м+456м= 71456м:7=10208м= (10000м+208м)= 10000м:1000+208м= 10км 208м
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. здесь, как я понимаю, вводимые данные не могут быть <= нулю, поэтому нулевые и отрицательные варианты не рассматривались
