Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 декабря 2022 16:53
1038
Является ли 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
Остались вопросы?
Еще вопросы по категории Информатика
СРОЧНООО Чему равно значение переменной s 1. Var s,k: integer; Begin s:=1; for k:=1 to 11 do s:=s+12; write(s); end. 2. Чему равно значен...
Известны площади круга и квадрата. Определить, уместится ли круг в квадрате. Составить блок-схема...
Выберите графические форматы файлов: 1.BMP 2.GIF 3.TXT 4.JPEG 5.DOC 6.PDF 7.WMF 8.EPS 9.EXE 10.COM...
1. Что называется архивацией? 2. Для чего предназначена архивация? 3. Какой файл называется архивным? 4. Что называется разархивацией? 5. Какая информ...
Что называется основанием системы счисления?Выберите один ответ:a. сумма всех цифр системы счисленияb. арифметическая основа ЭВМc. отношение значений...