Алгоритм, который устанавливает – является ли число N простым. Число называется простым, если оно делится нацело без остатка
182
305
Ответы на вопрос:
var
n,i,k:longint;
begin
writeln('введите число n');
readln(n);
k:=0;
for i:=2 to n do begin
if n mod i =0 then k:=k+1;
if k>0 then break;
end;
if i=n then writeln('число является простым')
else writeln('число не является простым')
end.
n,i,k:longint;
begin
writeln('введите число n');
readln(n);
k:=0;
for i:=2 to n do begin
if n mod i =0 then k:=k+1;
if k>0 then break;
end;
if i=n then writeln('число является простым')
else writeln('число не является простым')
end.
Популярно: Другие предметы
-
Луноцапка02.07.2020 08:38
-
ФархадАсланов09.06.2022 19:42
-
Sabinakerimli18.09.2022 23:08
-
Школьник07106.06.2020 06:21
-
АннаМокеева16.01.2022 10:20
-
2007121001.02.2021 07:30
-
Kdjs10.03.2020 14:51
-
lalala10617.12.2020 10:57
-
macglok1204.02.2021 16:26
-
hromovaysoydwfz09.02.2023 13:34