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
Шифровка в двоичную или каким-то конкретным методом(Хафман..)?
A = 'A'
СИМВОЛЬНЫЙ
B = 456
ЦЕЛЫЙ
С = 123.4
ВЕЩЕСТВЕННЫЙ
D = True
ЛОГИЧЕСКИЙ
Ответ:
0.0087659 • 10² = 0.87659
0.0321 • 10⁻³ = 0.0000321
0.2952E+7 = 2952000
44.7924E-5 = 0.000447924