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

В системе Паскаля

Question

Информатика

Софрония

4 сентября, 18:03

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

В системе Паскаля

+5

Ответы (1)

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

Митрюша · Answer 1

Var i, a:integer;

b:boolean:=true;

begin

write ('Введите число = ') ;

readln (a) ;

for i:=2 to round (sqrt (a)) do

if a mod i = 0 then begin b:=false; break; end;

if b then writeln ('Число ', a,' является простым')

else writeln ('Число ', a,' не является простым')

end.

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

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

В системе Паскаля