Дано натуральное число , проверить является ли оно - вопрос №3071732 от arpine1977 28.02.2022 23:58

Question

Информатика: Дано натуральное число , проверить является ли оно простым. pascal

arpine1977 · Answer

Uses crt;
var i,n,p,k:integer;
begin
clrscr;
readln(n);

for i:=2 to n div 2 do
    if (n mod i = 0) then inc(k);
    if k =0 then writeln('simple')
    else writeln('not simple');

readln
end.