<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
Общий объем равен 56 кбайт =159744 байт
информац объем страницы 8 бит * 80 * 64 = 40960 бит = 5120 байт = 31.2 ≈ 32 страницы
Ответ 32 страницы
N = 31
c = 1
For b=1 to n
If массив(b) > массив(i) then
If массив(b) > c then
c = a(b)
c2 = a(b-1)
End if
End if
Next
MsgBox c & " " c2
Написано на VBS
4 Кб = 1024 * 4 байт = 1024 * 4 * 8 бит = 32768 бит
Ответ: 32768
Пётр баскетболист, Геннадий волейболист, Алексей гимнаст, Владимир легкоатлет