Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.
<span>Дано: N=800</span><span>
K=320</span>
<span>Найти: I=?
</span><span>Решение: </span>
I=i×K
<span> N=2i</span><span>
800=</span>2^i
<span> 2^9=512</span>
<span> 2^10=1024</span>
<span> 800 > 2^9</span>
<span> 800 < 2^10 Т.к. нет точного числа i берём близкие по значению и выбираем
то, которое больше N.</span>
<span>I=10 × 320=3200
бит = 400 байт.</span>
<span>Вроде так.</span>
А что нарисовать и сфоткать то?