Напишите программу на языке pascal

дано: натуральное число - n

выяснить с помощью цикла repeat является ли оно простым (то есть делится на 1 и на само себя)

Question

Информатика

Вавила

31 октября, 11:30

Напишите программу на языке pascal

дано: натуральное число - n

выяснить с помощью цикла repeat является ли оно простым (то есть делится на 1 и на само себя)

+1

Ответы (1)

Знаете ответ?

Любаха · Answer 1

Var

i, n: integer;

begin

i : = 1;

read (n) ;

repeat

i : = i + 1;

if (n mod i = 0) and (n i) or (n = 1) then

begin

write ('Число ', n, ' не является простым') ;

exit;

end;

until i = trunc (sqrt (n)) + 1;

write ('Число ', n, ' является простым') ;

end.

Напишите программу на языке pascalдано: натуральное число - nвыяснить с помощью цикла repeat является ли оно простым (то есть делится на 1 и на само себя)

Напишите программу на языке pascal

дано: натуральное число - n

выяснить с помощью цикла repeat является ли оно простым (то есть делится на 1 и на само себя)