Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.