Помогите пожалуйста. Дано натуральное число , проверить является ли оно простым. Pascal
Помогите пожалуйста. Дано натуральное число , проверить является ли оно простым. Pascal
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var i,n,p,k:integer;
begin
clrscr;
readln(n);
for i:=2 to n div 2 do
if (n mod i = 0) then inc(k);
if k =0 then writeln('simple')
else writeln('not simple');
readln
end.
Не нашли ответ?
Похожие вопросы