Апрель май июнь июль значит май
Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.
{ Пример программы для процедуры FloodFill }
<span>Uses Graph,Crt; </span>
<span>Var Gd, Gm : Integer; </span>
<span>Begin </span>
<span>Gd:=Detect; </span>
<span>InitGraph(Gd, Gm, ''); </span>
<span>If GraphResult <> grOk Then Halt(1); </span>
<span>SetColor(GetMaxColor); </span>
<span>Circle(50, 50, 20); </span>
<span>FloodFill(50, 50, GetMaxColor); </span>
<span>Readkey; </span>
<span>CloseGraph; </span>
<span>End. </span>
<span>Procedure FloodFill(X, Y : Integer; Border : Word); </span>
<span>Закрашивает замкнутую область, используя текущие стиль и цвет закраски. </span>
<span>Procedure SetFillStyle(Pattern : Word; Color : Word); </span>
<span>Устанавливает цвет и стиль закраски. </span>
<span>Procedure SetColor(Color : Word) </span>
<span>устанавливает текущий цвет, </span>
Ответ:
K(кол-во символов в сообщении) = 3*40*60 = 7200
N(мощность алфавита) = 64 = 2^6
i общ = 7200*6=43200бит=5400байт.
ответ: 5400