Πρόγραμμα σε Pascal που υπολογίζει το πηλίκο και το υπόλοιπο ακέραιας διαίρεσης.
Π.χ. Αν διαιρέσουμε το 9 με το 2, το πηλίκο είναι 4 (το 2 χωράει 4 φορές στο 9) και το υπόλοιπο είναι 1 (περισσεύει 1, 9-4 Χ 2=9-8=1).
Program diairesi;
Uses crt;
Var a,b,c,d:integer;
Begin
Clrscr;
Write('Δώσε τον διαιρετέο:');
Readln(a);
Write('Δώσε τον διαιρέτη:');
Readln(b);
c:=a div b;
d:=a mod b;
Writeln('Το πηλίκο είναι:',c);
Writeln('Το υπόλοιπο είναι:',d);
Readln;
End.
Π.χ. Αν διαιρέσουμε το 9 με το 2, το πηλίκο είναι 4 (το 2 χωράει 4 φορές στο 9) και το υπόλοιπο είναι 1 (περισσεύει 1, 9-4 Χ 2=9-8=1).
Program diairesi;
Uses crt;
Var a,b,c,d:integer;
Begin
Clrscr;
Write('Δώσε τον διαιρετέο:');
Readln(a);
Write('Δώσε τον διαιρέτη:');
Readln(b);
c:=a div b;
d:=a mod b;
Writeln('Το πηλίκο είναι:',c);
Writeln('Το υπόλοιπο είναι:',d);
Readln;
End.