Восстановите программу проверки натурального числа на простоту. var n, i, f, z: integer; begin readln(n); f := 0; i := 2; z := round(sqrt(n)); while (i <= z) and (f = 0) do begin if n mod i = 0 then f := 1; i := i + 1; end; if f = 1 then writeln('Число составное') else writeln('Число простое'); end.
Логотип SimpleЦДЗ

Похожие

Задание

Восстановите программу проверки натурального числа на простоту.

  • var n, i, f, z: integer;
  • begin
  • readln\(n\);
    f := 0;
    i := 2;
    z := round(sqrt\(n\));
  • while \(i \\lt = z\) and \(f = 0\) do begin
  • if n mod i = 0 then f := 1;
  • i := i + 1;
  • end;
  • if f = 1 then
  • writeln\('Число составное'\)
  • else
  • writeln\('Число простое'\);
  • end.

Тот же тест