Является ли 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

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

Найти нужный

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

1) Значение арифметического выражения: 9^7 + 3^21 - 19 записали в системе счисления с основанием 3. Сколько цифр «2» содержится в этой записи? 2) Знач... Объём сообщения, содержащего 2048 символов, составил 1/512 Мбайта. Каков размер алфавита, с помощью которого записано сообщение?... ОЧЕНЬ СРОЧНО Проанализируйте адреса следующих документов: 1) http://inf.1 september.ru/2007/11/01.htm 2) http://fipi.ru/view/sections/218/docs/515.htm... Выполните операцию умножения над двоичными числами:а)1010*11; б)111*101; в)1010*111 объясните пожалуйста)... Что относится к приложениям общего назначения? что относится к приложениям специального назначения?...