Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
17 декабря 2022 03:52
804
Является ли 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
·
Хороший ответ
19 декабря 2022 03:52
Остались вопросы?
Еще вопросы по категории Информатика
Что такое данные ,и где они хранятся...
Минимальный состав персонального компьютера...
Запишите на алгоритмическом языке алгоритм представленный блок схемой Пж помогите...
Основные возможности электронных таблиц: сканирование итоговых документов коллективное использование данных, хранящихся в таблицах, распространение...
Основой метода структурного программирования являются использованиеконцепции двух базовых элементов – ветвления и циклической структур использование к...