Question

Запиши программу на языке Паскаль.
Определить, является ли число, введенное с клавиатуры простым.

Answer 1

var a,b,c,prime:longhint;
begin
writeln('введите число');
readln(a);
c:=a;
for b:=1 to a do begin
 if (c mod b=0) then prime:=prime+1;
end;
if (prime>2) then writeln('число не простое')
else writeln('число простое ');
end.