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

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

Найти нужный

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

У Васи есть доступ к Интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения им информации 2 в степени 17 бит в с... информационный носитель -это а)тот ,кто передает информацию б)устройство для обработки информации в)кто то или что то хранящее информацию г)устройство... Запишите на алгоритмическом языке алгоритм построения окружности заданного радиуса r, проходящей через заданные точки A и B.... назовите основные элементы окна табличного процессора. перечислите общие элементы окна табличного процессора и окна текстового процессора... Построить логическую схему, соответствующую логическому выражению. Определить значение логического выражения F, построив таблицу истинности для заданн...