<h2>Код программы</h2>
program raf105;
var i,j,o,n:integer;
begin
write('Введите число N: ');
readln(n);
writeln('Вывод: ');
for i:=2 to n-1 do
begin
o:=0;
for j:= 1 to i do
if (i mod j)=0
then o:= o+1;
if o=2
then writeln(i);
end;
end.
<h2>Результаты работы программы</h2>
Введите число N: 15
Вывод:
2
3
5
7
11
13
Ответ в файле:
VVVVVVVVVVVVVVVVVVVV
<span>Const k = 10;
Var a,b,c,m,n : Integer;
Begin
For m:=1 to k do
For n:=1 to k do
Begin
a:=sqr(m)-sqr(n);
b:=2*m*n;
c:=sqr(m)+sqr(n);
Writeln(m:5,n:5,a:8,b:8,c:8);
end;
end.</span>
Точка RGB весит 3 байта.
300*200=60000 - количество точек
60000*3= 180000 байт