Var i, k, n, sum: Integer;
a: Array[1..1000000] of Integer;
begin
ReadLn(n, k);
for i:=1 to n do a[i]:=i;
sum:=0;
for i:=1 to n do
if a[i] mod k = 0 then
sum:=sum+a[i];
WriteLn(sum);
end.
8+24 =32
р=8/32=1/4 - вероятность того, что выбран белый гриб
Количество информации в сообщении, что выбран белый гриб=
=log2 (1/p)=log2 4 =2 бита
ответ 2 бита
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n.Between(2,10) then begin
var i:=1;
repeat
Write(n,'x',i,'=',n*i,' ');
i+=1
until i>10;
Writeln
end
else Writeln('Число должно быть от 2 до 10')
end.
<u>Пример</u>
n= 6
6x1=6 6x2=12 6x3=18 6x4=24 6x5=30 6x6=36 6x7=42 6x8=48 6x9=54 6x10=60
3. Слой для записи намагничивается пишущей головкой, положение пишущей головки управляется лазером.
У светофора 3 цвета,красный ., жёлтый,зелёный , зелёный - идти,желтый ждать,красный стоять