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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!