Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Найти делители натурального числа - Паскаль

В программе находятся и выводятся все делители натурального числа A.
var a,n,c,d:word;
begin { основная программа }
 readln( a );
 n:=1;
 while ( n <= sqrt(a) ) do begin
 c:=a mod n;
 d:=a div n;
 if c = 0 then begin
 writeln( n );
 if n <> d then writeln( d );
 end;
 inc( n );
 end;
end.

const LIMIT = 500; {вывод простых чисел до 500}
var i,j,lim : word;
begin { основная программа }
writeln; {перевод строки}
 for i:=1 to LIMIT do 
begin 
 j:=2;
 lim:=round(sqrt(i));
 while (i mod j <> 0) and (j<= lim) do inc(j);
 if (j > lim) then write( i,' ' );
 end;
end.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]