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

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

Найти нужный

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

напишите программу, которая в веденной последовательности целых чисел 1 2 3 4 3 5 6 4 7 найдет и выведет моду этой последовательности... Как по икт сделать снеговика в ABC паскаль Напишите программу... Алфавит содержит восемь букв: А, Б, В, Г, Д, Е, Ж, З. Устройство заменяет каждую букву последовательностью из трех двоичных символов так, что одинаков... Условие Вы - агент специального отдела "Кибердетективы", занимающийся анализом киберпространства и выявлением скрытых сообщений. Ваша команда получил... Задача 2: Пирожки Рядом с домом Пети расположена пекарня, в которой пекут вкусные пирожки с ягодами. Пете очень нравятся три вида пирожков: с бруснико...