Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 декабря 2022 16:53
1045
Является ли X простым числом.Pascal ABC.NET
1
ответ
Если 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
// 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
0
·
Хороший ответ
16 декабря 2022 16:53
Остались вопросы?
Еще вопросы по категории Информатика
Дано натуральное число. Выведите его последнюю цифру. Входные данные Вводится натуральное число. Выходные данные Выведите ответ на задачу. Яз...
Поставь теги Сделай фразу «Фонк начинался как поджанр хип-хопа» курсивной. Сделай фразу «хэштег #phonk» полужирной. html <html> <body> *Фо...
С помощью стандартного приложения калькулятора вычислить перевод текущего года 2 8 и 16 -ю СС 2024(10) ...
Ниже приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интернета: Слон & Тигр 350...
Что такое служебные слова? Виды служебных слов? Пожалуйста помогите!...