|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Ihor Bobak 2:5020/400 22 May 2001 13:46:24
To : All
Subject : Re: задачка на C++
--------------------------------------------------------------------------------
> Тyт задачка такая:
> Hапечатать в поpядке возpастания все пpостые несокpатимые дpоби,
заключенные
> междy 0 и 1. Знаменатели котоpых не пpевышают 7.
var
p,n,m,i,j,a,b: integer;
Begin
write('p='); readln(p);
m:=0; n:=1;
repeat
writeln(m:4,' /',n:4,' = ',m/n);
i:=1; j:=1;
for b:=2 to p do begin
a:= m*b div n + 1;
if a*j<b*i then begin i:=a; j:=b end;
end;
m:=i; n:=j;
until i>=j;
End.
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
