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

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

Найти нужный

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

Доступ к файлу home.jpg, находящемуся на сервере travels.ru, осуществляется по протоколу http. Фрагменты адреса файла закодированы цифрами от... Задание 3 Решите задачу: матричный принтер имеет скорость печати 512 бит в секунду. Сколько времени нужно затратить на рас-печатку 10 страниц, если ка... Составить блок-схему нахождения количества цифр в натуральном числе.... 1. За минимальную единицу измерения количества информации принимают: 1) байт 2) пиксель 3) бит 4) бот 2. Шахматная доска состоит из 64 полей... 24) После преобразования растрового 256-цветного графического файла в 4-цветный формат его размер уменьшился на 18 Кбайт. Каков был размер исходного ф...