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

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

Question

Информатика

Викторин

5 сентября, 05:14

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

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

+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.

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

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

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