Pascal ABC:С помощью цикла repeat определить является ли число A простым (A-рандомное 2 х значное число)

Question

Информатика

Сонюша

30 января, 00:34

Pascal ABC:С помощью цикла repeat определить является ли число A простым (A-рандомное 2 х значное число)

+3

Ответы (1)

Знаете ответ на вопрос?

Вонифат · Answer 1

Var a, k, i:integer;

begin

randomize;

a:=random (89) + 10;

writeln ('Число ', a) ;

k:=0;

i:=2;

repeat

if a mod i = 0 then k:=k+1;

i:=i+1;

until (i=a) ;

if k=0 then writeln ('Простое') else writeln ('Не простое') ;

if a<0 then writeln ('Число отрицательное') ;

end.