Задание 7 Параграф 24 ГДЗ Семакин 8 класс (Информатика)

program task_7;
var
n, d: integer;
begin
write(‘Введи натуральное число:’);
readln(n);
d := 2;
while d < = n - 1 do begin if n mod d = 0 then begin writeln('Число составное'); exit end else d := d + 1 end; writeln('Чило простое') end.

Проверим, делится ли натуральное число $$n$$ на какое-нибудь число $$d$$ от $$2$$ до $$n-1$$. Если делится хотя бы на одно такое число, то оно составное. Если не делится ни на одно, то число простое.

Программа:

program task_7;
var
  n, d: integer;
begin
  write(‘Введи натуральное число:’);
  readln(n);
  d := 2;
  while d <= n — 1 do
  begin
    if n mod d = 0 then
    begin
      writeln(‘Число составное’);
      exit;
    end
    else
      d := d + 1;
  end;
  writeln(‘Число простое’);
end.

Цикл с параметром здесь реализован через переменную $$d$$, которая последовательно принимает значения от $$2$$ до $$n-1$$.

Ответ

Программа приведена выше.