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

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

16 декабря 2022 16:53

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

Найти нужный

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

у толи есть доступ к сети интернет по высокоскоросному одностороннему радиоканалу обеспечивающему скорость получения информации 2 в 20 степени бит в с... Помогите пожалуйста!)... 1)Рассматривается множество целых чисел, принадлежащих числовому отрезку [3394; 8599], которые удовлетворяют следующим условиям: − остаток от деления... Информатика . 7 класс. ФГОС. Итоговая контрольная работа. 6. Тип файла можно определить, а) размер б) расширение в) дату создания д) размещение 1. 7.... Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в 16-битовом коде Unicode, в...