Дано натуральное число , проверить является ли оно - вопрос №3071732 от Элина1306 11.10.2020 16:06

Question

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

Элина1306 · 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.