Задание:
В паскале сделать используя циклы: Ввести число и определить является ли оно простым (если его делители являются 1 и самочисло)
Решение:
program xxx; var k, d, n: integer; pr: boolean; begin writeln ('Введите число k='); readln (k); d: =2; n: =k div 2; pr: =false; while (d <= n) and not (pr) do if k mod d=o then pr: =true else d: =d+1; if pr then writeln (k, '- число не простое') else writeln (k, '- число простое'); readlnend.
Знаете другой ответ?