program raf105;
var
a: array[1..100] of integer;
i,n,c: integer;
x: boolean;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
x:= True;
readln(n);
for i:=2 to n-1 do
if (n mod i = 0) and (n <> 0)
then x:= False;
if x and (n <> 0)
then begin
c:= c+1;
a[c]:= n;
end;
until n = 0;
write('Простые числа: ');
for i:=1 to c do
write(a[i],' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>
<span>а = в * 7 * 500 * 3 * 28 * 25,4 : 1 000 000 = в * 7,4676
Но это не точно</span>
N=2^i
128=2^i => i=7 бит
K = 256x304=77824 пикселей
V=KJ=77824*7=544768 бит = 66,5 КБ.