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

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

Найти нужный

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

ФУНКЦИЯ. ПОМОГИТЕ С ИНФОРМАТИКОЙ, ПОЖАЛУЙСТА!!... В результате проведенных изменений текстовый файл был перекодирован из кодировки, выполненной с помощью алфавита, содержащего 64 символа, в кодировку... 1)Редактирование текста представляет собой: а) процесс внесения изменений в имеющийся текст б) процедуру сохранения текста на диске в виде текстовог... Что такое "условный оператор"?... 1, Данные каких типов могут храниться в ячейках таблицы? 2, Каковы основные параметры форматирования абзацев?...