/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/algo1.pas
21 строка
549 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Алгоритм определения простоты числа var N: integer; IsSimple: boolean; begin writeln('Введите число: '); readln(N); IsSimple := True; for var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= (sqrt(N)) if N mod i = 0 then begin IsSimple := False; break; end; if IsSimple then writeln('Число ',N,' простое') else writeln('Число ',N,' составное'); end.