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

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

Найти нужный

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

При присваивании изменяется: а) имя переменной б) тип переменной в) значение переменной г) значение константы... Через сколько секунд спрыгнут все пауки? Длина линейки 20 см, а начальные точки и направление движения пауков показаны на схеме. В ответе укажи только... Создать текстовую игру в Python Написать код данной игры в программе Python Игрок перемещается по комнатам замка. В каждой комнате находится три дв... Нужно написать программу проверки знания даты основания Санкт-Петербурга.... begin if (y <200) and (x > 100) then writeln('ДА') else writeln('НЕТ') end. Было проведено 10 запусков этой программы, при которых в качестве з...