Delenie - bez realnej matematiky (Zadanie 4)

Program zadanie4;

Uses CRT;

var a,b,p1,p2,i,n:integer;

a2,b2,p3:real;

Begin

ClrScr;

WriteLn('Zadaj lubovolne cisla A,B.');

ReadLn(a,b);

WriteLn('Zadaj pocet desatinnych miest.');

ReadLn(n);

p1:=a div b;

p2:=a mod b;

WriteLn('Vysledok je ',p1,' so zvyskom ',p2);

ReadLn;

a2:=a;

b2:=b;

p3:=a2/b2;

WriteLn('Vysledok s 3 desatinnymi cislami je ',p3:3:3);

WriteLn('Vysledok na ',n, ' desatinnych miest je ',p3:3:n);

ReadLn;

end.