Данный код на паскале поможет Вам определить, является ли данное число простым
var f: boolean; n,i: integer; Begin writeln ('vvedite chislo'); readln (n); f:= true; i:=2; while (i<sqrt (n)) and f do begin if n mod i = 0 then f:=false; i:=i+1; end; if f then write ('prostoe') else write ('sostavnoe'); readln end.
Или еще один вариант:
label 1; var f: boolean; n,i: integer; Begin writeln ('vvedite chislo'); readln (n); f:= true; for i:=2 to n-1 do begin if n mod i = 0 then begin f:=false; goto 1 end; end; 1: if f then write ('prostoe') else write ('sostavnoe'); readln end.
Comments ( 0 )