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

1 ответ

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

Megamozg

2205

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

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

17 декабря 2022 21:07

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

Найти нужный

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

При работе с таблицей в программе Exel в ячейке D3 записана формула =B2+$C3. Какой вид приобретёт формула после того, как её скопируют и п... Носитель информации в древней руси... Значение функции F(n), где n- натуральное число, определяется алгоритмом, заданным следующими соотношениями: F(n)=1, при n<3; F(n)=F(n-1)+n-1, е... (Python) Напишите программу для работы с рейтингами фильмов. Она может обрабатывать следующие команды: add - добавить фильм с указанным названием. Ес... 1. Какая лента используется, чтобы нарисовать фигуры в текстовом 2. Как рисуется прямая линия в программе Word? 3. Как нарисовать прямоугольник в прог...