Запиши программу на языке Паскаль.

Определить, является ли число, введенное с клавиатуры простым.

Question

Информатика

Ростя

15 июля, 16:35

Запиши программу на языке Паскаль.

Определить, является ли число, введенное с клавиатуры простым.

+1

Ответы (1)

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

Муза · Answer 1

Var a, b, c, prime:longhint;

begin

writeln ('введите число') ;

readln (a) ;

c:=a;

for b:=1 to a do begin

if (c mod b=0) then prime:=prime+1;

end;

if (prime>2) then writeln ('число не простое')

else writeln ('число простое ') ;

end.

Запиши программу на языке Паскаль.Определить, является ли число, введенное с клавиатуры простым.

Запиши программу на языке Паскаль.

Определить, является ли число, введенное с клавиатуры простым.