Question

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

Answer 1

program chet;

var i,k,n:integer;

begin

readln(n);

for i:=1 to n do

begin

if n mod i = 0 then k:=k+1;

end;

if k=2 then writeln('число,',n,',натуральное')

else writeln('число,',n,',не натуральное');

end.

Answer 2

Для проверки, является ли целое число простым, можно написать программу на языке программирования Pascal, используя цикл с постусловием (repeat-until). Вот пример такой программы:

pascalCopy code
program CheckPrime;

var
  num, i: Integer;
  isPrime: Boolean;

begin
  Write('Введите целое число: ');
  Readln(num);

  if num <= 1 then
    isPrime := False
  else
  begin
    i := 2;
    isPrime := True;

    repeat
      if num mod i = 0 then
      begin
        isPrime := False;
        break;
      end;
      Inc(i);
    until i * i > num;
  end;

  if isPrime then
    Writeln(num, ' является простым числом.')
  else
    Writeln(num, ' не является простым числом.');
end.

В данной программе мы считываем целое число от пользователя и затем используем цикл с постусловием для проверки, является ли число простым. Мы идем от 2 до квадратного корня из числа и проверяем, делится ли число на i без остатка. Если делится, то число не является простым, и мы выходим из цикла. Если после выполнения цикла флаг isPrime остался равным True, то число является простым.