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

1 ответ

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

DevAdmin

1720

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

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

19 декабря 2022 03:52

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

Найти нужный

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

Выполните вычитание двоичных чисел a)1011-101,11 b)1101,101-1001,01... Сколько разных пятибуквенных слов можно составить в двоичном алфавите? Сколько разных двухбуквенных слов можно составить в алфавите из пяти символов?... Сколько бит в слове мегабайт... Python 3 HELP Написать 3 программы 1. Известно, что 1 дюйм равен 2.54 см. Разработать приложение, переводящие дюймы в сантиметры и наоборот. (перево... ПОМОГИТЕ ПОЖАЛУЙСТА ЭТО СРОЧНО . По заданному алгоритму составь блок-схему...