Написать программу в паскале: опишите множество pr(1..20) и поместите в него все простые числа в диапозоне 1..20. в цикле организуйте ввод чисел в диапозоне 1..20 и определите, простые они или нет . выход из цикла - введеное значение , равное 99.

149

158

Посмотреть ответы 2

Ответы на вопрос:

Kanapluhaaa

Информатика

4,5(43 оценок)

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