Измаил
7 год назад
Вывести на экран все простые числа в диапазоне от A до В.
ОТВЕТЫ
Vabagselm
Jul 12, 2019
program tmp;
uses crt;
var m,i:longint;
function simple(n:longint):boolean;
var i:longint;
begin
simple:=true;
for i:=2 to round(sqrt(n)) do if n mod i=0 then
begin
simple:=false;
break;
end;
end;
begin
clrscr;
write(enter n: ); readln(n);
for i:=2 to n do if simple(i) then write(i, );
readkey;
end.
230
Смежные вопросы:
