Наверное викитека я так думаю.
Program dfgdf;
var
m,o,r,f:real;
begin
writeln('оценку по математике введите');
readln(m);
if (m>=1) and (m<=5) then
begin
writeln('оценку по русскому введите');
readln(r);
if (r>=1) and (r<=5) then
begin
writeln('оценку по физике введите');
readln(f);
if (f>=1) and (f<=5) then
begin
o:=(m+f+r+5)/4;
writeln('средняя оценка = ',o);
end
else
begin
writeln('не корректный ввод!!!');
end;
end
else
writeln('не корректный ввод!!!')
end
else
writeln('не корректный ввод!!!')
<span>end.</span>
P=K/N - вероятность получения четвёрки
К - количество четвёрок
К=р*N
N = 100 общее количество оценок
1/р =2^i, i=2 бита - количество информации о событии "четвёрка"
р= 1/2^i = 1/2²=1/4 - вероятность получения четвёрки
K=100*1/4 =25 четвёрок получил
Треугольников 40
и 10 квадратов
125(восьм.)=1*8^2+2*8^1+5*8^0=64+16+5=85 (десятичн.)
34(восьм.)=3*8^1+4*8^0=24+4=28 (десятичн.)