Napisz program, który bedzie wyswietlał kolejne odwrotnosci liczby od podanej z klawiatury liczby n do m. Np. gdy podamy n=1, m=5 to wyswietla sie liczby 1/2, 1/3, 1/4, 1/5.
uses crt; var n,m,i:byte; begin n:=0; m:=1; repeat clrscr; writeln('Podaj n '); readln(n); writeln('Podaj m '); readln(m); until n<m; write('Odwrotnosci liczb od n do m to: '); for i:=n to m do write(i,'/x '); repeat until keypressed; end.
można jeszcze zrobić zabezpieczenie przed wprowadzaniem ułamków, ale myślę, że to Ci powinno wystarczyć :) ewentualnie jak będziesz chciał to napisz na priv
uses crt;
var n,m,i:byte;
begin
n:=0;
m:=1;
repeat
clrscr;
writeln('Podaj n ');
readln(n);
writeln('Podaj m ');
readln(m);
until n<m;
write('Odwrotnosci liczb od n do m to: ');
for i:=n to m do
write(i,'/x ');
repeat until keypressed;
end.
można jeszcze zrobić zabezpieczenie przed wprowadzaniem ułamków, ale myślę, że to Ci powinno wystarczyć :) ewentualnie jak będziesz chciał to napisz na priv