Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  jgd
Language: PASCAL
Code:
program register; (input,output);
const
     qtr=25;
     dime=10;
     nick=5;
     pen=1;
var
     a      :integer;
     b      :integer;
     c      :integer;
     d      :integer;
     change :integer ;

begin (register)
     a=0;
     b=0;
     c=0;
     d=0;
          readln (change);
          writeln (change);
          if (change<100)
          begin 
          while (change>0) do
          a     :=change div qtr ;
          change:=change mod qtr;
          b     :=change div dime;
          change:=change mod dime
          c     :=change dive nick;
          change:=change mod nick;
          d     :=change div pen;
          change:=change mod pen;
          writeln (a 'qtr');
          writeln (b 'dime');
          writeln (c 'nick');
          writeln (d 'pen');
          readln (amount);
          end ;
     end. (register)

          
          
          
Comments: