Является ли 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,b,c. в ввиде блок схемы... Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. Получившийся файл был передан в город А по каналу связи за... Какое расширение имеет файл презентации? а) *.txt б)*.ppt в)*.doc г)*.bmp... Приведите различные примеры процесса обработки информации. По каким правилам?... Установить соответствие 1) Выравнивание абзаца 2) Интервал между символами 3) Отступы 4) Межстрочный интервал A) расположение текста абзаца от...