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

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

Найти нужный

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

Задача С «Симметричная матрица» Дана квадратная матрица. Проверить, является ли она симметричной относительно главной диагонали. Входные данные. За... Написать в тетради программу, которая создаёт файл numbers.txt и записывает в него 5 введенных пользователем целых чисел.... Алфавит языка «амба-карамба» состоит из 5 букв. Сколько различных четырехбуквенных слов можно образовать в этом языке? 4.Некоторый язык содержит тольк... От чего зависит размер файла в котором хранится векторный рисунок? Почему векторные рисунки не искажаются при изменении размеров?... Объекты на рисунке образуют класс "Домики". Составь дерево деление данного класса на подклассы. Используй такие названия подклассов: одноэтажные, мног...