Автор Tepes задал вопрос в разделе Другие языки и технологии
Как проверить, является ли число простым в Pascal? Хотя бы в общих чертах подскажите? Какие функции использовать? и получил лучший ответ
Ответ от Никита Матросов[гуру]
Function prost(a:Longint): boolean; {Опиши такую функцию}
var
k: longint;
begin
For k:=2 to a div 2 do
If a mod k =0 then begin
prost:=false;
exit; end else
prost:=true;
end;
var
c: longint;
Begin
Read(c);
Writeln(prost(c));
Readln;
End.
Ответ от Влад Токаев[активный]
if A mod 1 = 0 then write("число простое")
if A mod 1 = 0 then write("число простое")
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как проверить, является ли число простым в Pascal? Хотя бы в общих чертах подскажите? Какие функции использовать?