решите задачу по информатике
С помощью цикла WHILE.
Дано число нужно узнать если оно простое то вывести YES если нет то NO.
Например: 63 вывести YES;
Например: 43 вывести NO.
С помощью цикла WHILE.
Дано число нужно узнать если оно простое то вывести YES если нет то NO.
Например: 63 вывести YES;
Например: 43 вывести NO.
More Questions From This User See All
Answers & Comments
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if n<4 then Writeln('YES')
else begin
var found:=(n mod 2=0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
if found then Writeln('NO')
else Writeln('YES')
end
end.
Примеры
n= 63
NO
n= 43
YES