{Случайным образом выбрали трехзначное число. Какова вероятность того, что сумма его цифр равна 18?}
Для подсчета количества чисел, сумма цифр которых равна 18, составлена эта программа.
{Найти кол-во 3-значных чисел, сумма цифр которых равна 18.}
program kolnum;
Uses Crt;
var x,y,z,i,k: integer;
begin
ClrScr;
writeln('Подсчет количества чисел, сумма цифр которых равна 18');
for i:= 100 to 999 do
begin
x:= i div 100; {кол-во сотен}
z:= i mod 10; {кол-во единиц}
y:= (i- z) div 10; y:=y mod 10; {кол-во десятков}
if (x+y+z=18)
then begin
write (i,' ');
k:=k+1; {количество нужных чисел}
end;
end;
writeln('k=',k)
end.
Результат работы пр-мы:
Р= 54/900 = 0,06
