Составьте программу, которая определяет, является ли данное натуральное число простым, и выводит на экран соответствующее сообщение: «Да» либо «Нет».

6 октября, 2022 от ilyuha_otvecha

Вопрос от посетителя:

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.