Запиши программу на языке Паскаль. Определить, является ли число, введенное с клавиатуры простым.
Запиши программу на языке Паскаль.
Определить, является ли число, введенное с клавиатуры простым.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы