Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
17 декабря 2022 03:52
 904
 Является ли 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
Остались вопросы?
 Еще вопросы по категории Информатика
 
                                    Выполните вычитание двоичных чисел  a)1011-101,11 b)1101,101-1001,01...
                                
                                    Сколько разных пятибуквенных слов можно составить в двоичном алфавите? Сколько разных двухбуквенных слов можно составить в алфавите из пяти символов?...
                                
                                    Сколько бит в слове мегабайт...
                                
                                    Python 3 HELP Написать 3 программы   1. Известно, что 1 дюйм равен 2.54 см. Разработать приложение, переводящие дюймы в сантиметры и наоборот. (перево...
                                
                                    ПОМОГИТЕ ПОЖАЛУЙСТА ЭТО СРОЧНО  . По заданному алгоритму составь блок-схему...
                                
