Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
14 декабря 2022 16:53
880
Является ли 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
·
Хороший ответ
16 декабря 2022 16:53
Остались вопросы?
Еще вопросы по категории Информатика
Для чего придназначены системы программирования...
ВІДГАДАЙ ЗАГАДКУ ЦЯ ВСЕСВІТНЯ ПАВУТИНА...СКІЛЬКИ ЗНАЄ-ПРОСТО ДИВО!З нею вчись ти працювати-теж багато будеш знати...
Наибольший объем информации человек получает при помощи : 1 органов слуха 2 зрения 3 осязания 4 обоняния 5 вкуса...
У Васи есть доступ к Интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения им информации 2 в степени 17 бит в с...
для кодирования одного пикселя используется 3 байта. Фотографию размером 2048х1536 пикселей сохранил в виде несжатого файла. Определите размер получив...
Все предметы