В паскале сделать используя циклы:

Ввести число и определить является ли оно простым (если его делители являются 1 и само число)

1

Ответы и объяснения

Лучший Ответ!
  • ali07
  • главный мозг
2011-11-12T15:59:15+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

program xxx;

var k, d, n : integer;

      pr : boolean;

begin

  writeln('Введите число k=');

  readln(k);

  d:=2;

  n:= k div 2;

  pr:=false;

  while (d<=n) and not(pr) do

     if k mod d = o then pr:=true else d:=d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

   readln

end.