Umístnení souboru www.TrSek.com/cover/raptor/delenie.pas{ DELENIE.PAS }
{ Program na delenie dvoch cisel. }
{ }
{ Author: RaptoR (Juraj Danis) }
{ Date :19.1.2009 http://www.trsek.com }
program delenie;
uses crt;
var a,b,vysledok,zvysok:integer;
c:char;
BEGIN
repeat
clrscr;
writeln('Zadaj delenec');
readln(a);
writeln('Zadaj delitel');
readln(b);
vysledok:=a div b;
zvysok:=a mod b;
writeln(a,':',b,'=',vysledok,' zvysok ',zvysok);
writeln('Chces opakovat? Y/N');
readln(c);
until c='n'
end.