Является ли X простым числом.Pascal ABC.NET

1 ответ

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

Megamozg

2200

Если x - простое, выводим True

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var x:=ReadInteger('x=');
Writeln(Range(2,Round(sqrt(x))).All(i->x mod i<>0))
end.

Тестовое решение:
x= 191
True

Хороший ответ

16 декабря 2022 16:53

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

отгадайте загадку. ковбой пришел в бар, попросил у бармена стакан воды, бармен выстрелил, ковбой сказал спасибо и ушел. почему ковбой сказал спасибо?... Составить блок-схему алгоритма решения задачи: Вывести таблицу значений функции y= sin2 x – cos x на интервале [-π, π] с шагом π /10.... Сколько существует различных последовательностей из символов плюс и минус длиной 6 символов... Объясните картинку плиииииитииииииииииз... Ученик задумал целое число от -10 до 10. Какова вероятность того, что квадрат этого числа больше 25? Меньше 10? Равен 49? Нужны решения! не только...