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

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

Найти нужный

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

Переведите пожалуйста: 24 576 битов в Байты и Килобайты; 2048 Байтов в биты и Килобайты; 1,5 Кб в Байты и биты; 2 в степени 13 битов в Байты и Килобай... Информатика помогите пожалуйста... Определите результат работы программы m = 0 for i in range (3, 8) : m -= 6 - 2*i print(m)... Сколько существует различных последовательностей из символов плюс и минус длиной 6 символов... Получить целое частное можно с помощью операции … mod div / |...