Var
Pr: set of 1..20;
x: integer;
begin
Pr := [1, 2, 3, 5, 7, 11, 13, 17, 19];
writeln('Вводите целые числа от 1 до 20, выход по 99');
repeat
write('Число ');
readln(x);
if x < 21 then
if x in Pr then writeln('простое')
else writeln('не простое')
until x = 99
end.
Тестовое решение:
Вводите целые числа от 1 до 20, выход по 99
Число 18
не простое
Число 3
простое
Число 15
не простое
Число 23
Число 19
простое
Число 99
7210 / 2 = 3605 (0)
3605 / 2 = 1802 (1)
1802 / 2 = 901 (0)
901 / 2 = 450 (1)
450 / 2 = 225 (0)
225 / 2 = 112 (1)
112 / 2 = 56 (0)
56 / 2 = 28 (0)
28 / 2 = 14 (0)
14 / 2 = 7 (0)
7 / 2 = 3 (1)
3 /2 = 1 (1)
1/2 = 0 (1)
записываем остатки в обратном порядке и получаем
1110000101010
2+2=4
2+4=6
2+6=8
2+8=10
2+10=18
2+12=14
2+14=16
2+16=18
2+18=20
(так же делаешь с числами 4, 6, 8.....18)
1. Объект - любая часть окружающей действительности, воспринимаемой человеком как единое целое
2. Объекты бывают: предметы, явления, процессы
3. Объекты предметы: телевизор, портфель, трактор
4. Объекты процессы: рисование, свечение, строительство
5. Объекты явления: землетрясение, шторм, наводнение
6. Каждый объект имеет имя, которое отличает его от других объектов
7. Имена бывают общие, единичные, собственные
8. Общие имена: вокзал, морс, горы
9. Каждый объект имеет имя, которое позволяет отличать его от других предметов
10. <span>Европейский город - общее имя
</span>11. Собака Шарик - имя собственное
12. Берлин в Германии - единичное имя
Кол-во символов 150*40*60=360000
информация на один символ 2^x=32, x=5 бит
всего инф 5*360000=1800000 бит=225000 байт ~ 220 кбайт