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

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

Найти нужный

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

Напишите программу, которая запрашивает три цифры (от 0 до 9) и выводит число, получающееся из этих цифр в том же порядке, что и при вводе. С++ , пож... Переведите целые числа из десятичной системы счисления в шестнадцатеричную 256, 400, 1234, 2012. помогите пожалуйста решить очень нужно... Определите информационный вес символа i алфавита мощностью N, заполняя таблицу: N N=2i i(битов) 8 ? ? 32 ? ? 64 ? ? 128 ? ? 256 ? ?... 1. Запишите значение переменной s, полученное в результате работы следующей программы. Var s,k: integer; Begin s := 0; for k := 6 to 12 do s := s+... Помогите пожалуйста...