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

1 ответ

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

Megamozg

2205

Если 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

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

Найти нужный

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

Сколько раз будет выполнен этот цикл? i = 7 while i < 11:     print ( "Привет!" )     i += 1... Вася составляет 4-буквенные слова, в которых есть только буквы: И, В, А, Н, — причём буква А используется в каждом слове ровно 1 раз или не встречаетс... Дополните алгоритм из примера 9 так,чтобы с его помощью можно было найти наибольшую из четырёх величин A,B,C и D.... 1.Процессор обрабатывает информацию,представленную: 1)в десятичной системе счисления. 2)на языке программирования высокого уровня 3)на алгоритмическ... 1.Почему современные персональные компьютеры в сотни раз меньше но при этом в сотни раз быстрее эвм первого поколения? 2.Почему современные персональн...