Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (число называется простым, если оно делится только на 1 и на само себя без остатка; причем числа 1 и 2 простыми не считаются).

Var a, i: integer; procedure del(i: integer; var a: integer); var j : integer; begin     a: =0;     for j: =1 to i do       if i mod j = 0 then inc (a) end; begin     writeln;     for i: =2 to 1000 do     begin       del(i,a);       if a=2 then write (i, ' ');     end; end.        

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов