Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  parite
Language: PASCAL
Code:
program getmoney; 

var p:integer; 

        e_lv,d_lv,p_lv,de_lv,dv_lv,pe_lv,s_lv:integer; 

begin 

write('Vavedi Kolko pari 6te iztegli6 --->'); read(p); 

repeat 

if p div 100<>0 then 

  begin 

        s_lv:=s_lv+p div 100; 

        p:=p-100*(p div 100); 

  end; 

if p div 50<>0 then 

  begin 

        pe_lv:=pe_lv+p div 50; 

        p:=p-50*(p div 50); 

  end; 

if p div 20<>0 then 

  begin 

        dv_lv:=dv_lv+p div 20; 

        p:=p-20*(p div 20); 

  end; 

if p div 10<>0 then 

  begin 

        de_lv:=de_lv+p div 10; 

        p:=p-10*(p div 10); 

  end; 

if p div 5<>0 then 

  begin 

        p_lv:=p_lv+p div 5; 

        p:=p-5*(p div 5); 

  end; 

if p div 2<>0 then 

  begin 

        d_lv:=d_lv+p div 2; 

        p:=p-2*(p div 2); 

  end; 

if p div 1<>0 then 

  begin 

        e_lv:=e_lv+p div 1; 

        p:=p-1*(p div 1); 

  end; 

until p=0; 

writeln(s_lv,' po 100 leva.'); 

writeln(pe_lv,' po 50 leva.'); 

writeln(dv_lv,' po 20 leva.'); 

writeln(de_lv,' po 10 leva.'); 

writeln(p_lv,' po 5 leva.'); 

writeln(d_lv,' po 2 leva.'); 

writeln(e_lv,' po 1 lev.'); 

end.
          
Comments: