2*2=4
????!!!?!!?!!?!!!?!??
КуКЛА ВИшня ШАры - КЛАВИША
Только наверно после шаров тоже две запятых...
Var
n, i, k: integer;
f: boolean;
begin
readln(n);
f := false;
for i := 1 to n do
begin
k := Random(100);
f := f or (k mod 4 = 0);
end;
writeln(f);
end.
10 Кбайт = 10 × 1024 байт = 10240 байт.
При длине сообщения 20480 символов на 1 символ приходится 10240 / 20480 = 0.5 байта = 0.5 × 8 = 4 бита.
Следовательно мощность алфавита составит 2⁴ = 16 символов.
<em>// PascalABC.NET 3.2, сборка 1404 от 16.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,k:integer; Read(a,b,k);
Writeln(Range(a,b).Where(i->i mod k=0).Count)
end.