Составьте программу, которая определяет, является ли данное натуральное число простым, и выводит на экран соответствующее сообщение : "да" либо "нет". (Простое число делится только на 1 и на само себя.)
пиши в личку
program prostoe_chisl; //простое или нет введенное число
uses crt;
var a:boolean;
i:integer;
function IsSimple(k: integer): boolean;
var i:integer;
begin
IsSimple:=false;
for i:=2 to trunc(sqrt(k+1)) do if k mod i = 0 then exit;
IsSimple:=true;
end;
BEGIN
clrscr;
write(' ввести целое число -->'); readln(i);
a:= IsSimple(i) ;
write(' число ');
if a then write(i,' простое ') else write(i,' не простое');
writeln;
readkey;
end.
⇢