Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
17 декабря 2022 03:52
625
Является ли X простым числом.Pascal ABC.NET
1
ответ
Если 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
// 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
0
·
Хороший ответ
19 декабря 2022 03:52
Остались вопросы?
Еще вопросы по категории Информатика
Что будет выведено на экран после выполнения фрагмента программы? s := 'фоксфорд'; s1 := 'крокодил'; s := copy(s,1,4) + 'т' + copy(s1,2,2) +...
Для генерации случайного числа из интервала [0, 1] необходимо использовать выражение *один правильный ответ random(11) random(2) random(1...
Некое растровое изображение было сохранено в файле p1.bmp как 24-разрядный рисунок. Во сколько раз будет меньше информационный объём файла p2.bmp, есл...
N=2i формуласы бойынша нені анықтауға болады...
составьте алгоритм управления чертежником в результате выполнения которого в произвольном месте координатной плоскости будет нарисован прямоугольник,...
Все предметы