Program qqq; var n, s, x1, z1, i, del: integer; begin writeln ('vvedi 5-znachnoe chislo < 32768'); {ограничение типа integer} readln (n); del:=10000; for i:=1 to 5 do begin z1:= n mod del; x1:= n div del; s:=s+x1; n:=z1; del:=del div 10; end; writeln ('summa cifr=', s); readln; end.
1. Первый интервал 21-30, в него входят 10 чисел (21,22,23,24,25,26,27,28,29,30) = а вероятность будет равна количеству чисел этого интервала к общему интервалу [1;100]. Таким образом для первого интервала 10/100 = 10% = 0,1. 2.Идем по аналогии с предыдущим интервалом : [31;55] - это 25 чисел,следовательно 25/100=25% = 0,25. 3.Интервал [25;100] - это 75 чисел. 75/100=75%=0,75. 4. Ровно 25, это единственное число,а как вы уже успели заметить - каждое число является 1 процентом. Таким образом можно сразу сказать что вероятность для этого случая 1% или 0,01.
var n, s, x1, z1, i, del: integer;
begin
writeln ('vvedi 5-znachnoe chislo < 32768');
{ограничение типа integer}
readln (n);
del:=10000;
for i:=1 to 5 do
begin
z1:= n mod del;
x1:= n div del;
s:=s+x1;
n:=z1;
del:=del div 10;
end;
writeln ('summa cifr=', s);
readln;
end.