Написать программу в ПАСКАЛЕ: опишите множество Pr(1..20) и поместите в него все простые...

Question

Написать программу в ПАСКАЛЕ: опишите множество Pr(1..20) и поместите в него все простые числа в диапозоне 1..20. В цикле организуйте ввод чисел в диапозоне 1..20 и определите, простые они или нет . Выход из цикла - введеное значение , равное 99.

Answer 1

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