40*48:8 попробуй иак я не знпю как точно нотсчитаю так
var
a: array [1..25] of integer;
begin
for i: integer := 1 to 25 do
begin
a[i] := random(255);
writeln(i, ' => ', a[i]);
end;
writeln('-----------------------------------');
for i: integer := 1 to 25 do
begin
if (i mod 2 = 0) then
a[i] := a[i] * 2
else
a[i] := 0;
writeln(i, ' => ', a[i]);
end;
<span>end.</span>
Var
year: integer;
begin
write('Введите год: ');
readln(year);
if year mod 4 = 0 then
if year mod 100 = 0 then
if year mod 400 <> 0 then
write('365 дней')
else write('366 дней')
else write('366 дней')
else write('365 дней');
end.
Пусть x - количество мальчиков. Тогда вероятность того, что к доске вызовут мальчика = x/32. Используя формулу Шеннона, можно записать 32/x = 2^2
Отсюда x=8
Ответ: количество девочек=24, количество мальчиков=8