На языке программирования Pascal составить программку, которая инспектирует, является ли

На языке программирования Pascal составить программу, которая инспектирует, является ли введенное с клавиатуры число обычным либо нет (т. е. число делится только на 1 и на само себя без остатка) (число 354)

Задать свой вопрос
1 ответ

function isPrime(n:integer):boolean;

var res:boolean;

i:integer;

begin

if ngt;1 then res:=true

else res:=false;

for i:=2 to n div 2 do

if n mod i = 0 then

begin

res:=false;

break;

end;

isPrime:=res;

end;

var n:integer;

begin

writeln('введите целое число: n = ');

readln(n);

write(isPrime(n));

readln;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт