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

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

Найти нужный

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

помогите, пожалуйста, составить программный код для игры "Змейка" в python используя pygame. заранее спасибо!... В ячейке D2 электронной таблицы записана формула $A$1+B2.В Рисунок Ячейку В2 "протянули" вправо. Какой вид будет иметь формула в ячейке Е2?... 1) Чему будут равны значения в ячейках А6 и В6 после выполнения команды КОПИРОВАТЬ А2:В2 в А3:В6? 2) В ячейке A1 находится формула. Формулу из ячейки... 1.Компьютер это- а.устройство для обработки аналоговых сигналов. б.устройство для хранения информации любого вида в.многофункциональное электронное ус... Python Ввести с клавиатуры 4 числа и с помощью функции іf найти повторялись ли числа....