Является ли X простым числом.Pascal ABC.NET

1 ответ

Посмотреть ответы

DevAdmin

1720

Если 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

Хороший ответ

19 декабря 2022 03:52

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

Найти нужный

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

Чему будет равна переменная  b  после выполнения этой программы: a := 1; b := 5; a := a - b; b := 2*b - a;... Срочно, помогите, пожалуйста. 3. Значение выражения 2410+11012 в двоичной системе счисления равно: 1) 110001 2) 100001 3) 100101 4) 11101... Для передачи аварийных сигналов договорились использовать специальные цветные сигнальные ракеты, запускаемые последовательно. Одна последовательность... Resource-image resource-image Директор IT-школы Борис Иванович повесил на двери VR-лаборатории кодовый замок. Замок — это пустые квадраты, в которые н... Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы? a = 2 fоr i in rаngе(4):     a +=...