Question

Составить программу с постусловием "является ли число простым" на языке паскаль

Answer 1

Вот так,скорее всего?

Answer 2

Я попробую составить программу с постусловием "является ли число простым" на языке Паскаль. Вот мой код:

program PrimeNumber;
var
  n, i, count: integer;
begin
  writeln('Введите целое число больше 1');
  readln(n);
  count := 0;
  for i := 2 to n - 1 do
  begin
    if n mod i = 0 then
      count := count + 1;
  end;
  if count = 0 then
    writeln('Число ', n, ' является простым')
  else
    writeln('Число ', n, ' не является простым');
end.

Программа считывает целое число больше 1 от пользователя и проверяет, делится ли оно на какое-либо число от 2 до n - 1. Если нет, то число является простым, иначе - нет. Программа выводит результат на экран. Это постусловие, потому что проверка происходит после ввода числа.