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

1 ответ

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

DevAdmin

1685

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

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

Найти нужный

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

Что делает вирус Win32 malware-gen?... IP-адресу 64.129.255.32 соответствует 32-битовое представление...?... На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом: 1) Строится двоичная запись числа N. 2) К эт... Робот-попугай Лёшенька хочет поразить своего создателя Бориса Ивановича тем, как хорошо он помнит «Трёх мушкетёров» (это любимый фильм Бориса Иванович... Сочинение по литературе написано на 5 страницах, на каждой странице 32 строки по 48 символов. Использовалась кодировка Unicode, где один символ кодиру...