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

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

Найти нужный

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

1. Соревнования по плаванию были в самом разгаре, когда стало ясно, что первые четыре места займут мальчики из пятёрки лидеров. Их имена: Валерик, Кол... В алгоритме, записанном ниже, используются целочисленные переменные а, в, с, а также следующие операции: Определите значение переменной в после испол... A = [1]*5 A[2]=3 Определите, какими значениями будет заполнен массив А.... . Отметьте истинные высказывания. 1. объект, который используется в качестве "заместителя", представителя другого объекта с определенной целью, назв.... сканер имеет разрешение 512*512 dpi отсканированное изображенние размером 8*4 дюйма занимают 16 мбайт памяти, чему равна глубина цвета точки отсканиро...