Является ли X простым числом.Pascal ABC.NET

1 ответ

Посмотреть ответы

Megamozg

2200

Если 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

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

Найти нужный

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

Сторона передающая информацию. Сторона принимающая информацию. Система обмена письмами с помощью компьютера По информатике 5 класс... Недавно Влад победил на олимпиаде и выиграл современный квадрокоптер — дрон. Влад прикрутил к квадрокоптеру камеру, поднял его в воздух и начал фотогр... Перепишите программу на языке Паскаль, исправив ошибки: Program primer Var a,b: integer; Begin ; ReadLn( a,b); s=a+b; m:=a*b; d:=a:b; WriteLn(s); Writ... Какие программы продаются в специальной упаковке с сопровождающей документацией? 1) бесплатные программы 2) условно бесплатные программы 3) коммерче... 1. Калькулятор, работающий в семиричной системе счисления имеет пять знакомест для вывода числа на экран. С каким самым большим десятичным числом можн...