1) n=50, 5,15,25,35,45,50- 6 чисел 50-6=44 в этом количестве чисел нет цифры 5, т.е. m=44 P=m/n=44/50=0.88 2)P=m/n (a;b) цифры номера.от 1 до 9. 9*9=81, т.к. цифры различные, то (1,1),(2,2)...(9,9)- всего 9 шт. в общее количество возможных вариантов не входят. n=81-9=72. только одна верная комбинация цифр в телефоне, т.е. m=1. P=1/72. 4) (п,н), (п,п),(н,н), (н,п). Первый попадает с вероятностью 0,6, промахивается с вероятностью 1-06=0,4. Второй попадает-0,7, промахивается- 0,3. Нужно найти вероятность. п-попадание в цель, н- не попадание в цель. (п,н)+(н,п)= 0,6*0,3+0,4*0,7=0,18+0,28=0,46. 5) 5 рабочих. 3 пойдут к врачу, 2 нет. (п, п, п, н, н)=5!/(3!*2!)0,8*0,8*0,8*0,2*0,2=0,04096*10=0,4096 3) в куб вписан шар. вероятность того что точка окажется внутри шара. Р=Vшара/Vкуба= 4/3piR^3/8R^3=pi/6≈0.5233
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. здесь, как я понимаю, вводимые данные не могут быть <= нулю, поэтому нулевые и отрицательные варианты не рассматривались
4*18*25 = 1800 см3