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

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

Найти нужный

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

Переведите число 59, записанное в 10-й системе счисления в 2-ю, 8-ю и 16-ю системы счисления. Запишите решение и ответ.... приведите примеры ситуаций, в которых информация собирается, обрабатывается, упрощается, создается, запоминается, измеряется, копируется, передается,... Укажите расширение файла primer.avi. 1)primer.avi 2).primer 3)avi 4).avi... Хелпаните с ошибкой Traceback (most recent call last): File "main.py", line 4, in from telebot import types File "/usr/local/lib/python3.4/dist-pa... Особенность мультимедийных продуктов: 1) наличие текста 2) возможность интерактивного взаимодействия 3) наличие графических изображений 4) наличие...