Új hozzászólás Aktív témák

• #308 norbiphu őstag

  Új Válasz 2004-09-21 18:06:57 #308

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  norbiphu

  őstag

  Sziasztok!
  
  A probléma az lenne, hogy egy progit kell írni amely egy bizonyos pénzösszeg megadása után kiírja hogy az hány húszezres, tízes ...
  
  Na ennél egyszerűbben nem lehet megoldani, vagy csak tisztes iparosmunka?
  
  program penzvalt;
  uses crt;
  var
  a,b,c,d,e,f,g,h:longint;
  begin
  clrscr;
  write ('Kérem a pénzösszeget! '); read(a);
  b:=a div 20000;
  c:=a mod 20000 div 10000;
  d:=a mod 20000 mod 10000 div 5000;
  e:=a mod 20000 mod 10000 mod 5000 div 1000;
  f:=a mod 20000 mod 10000 mod 5000 mod 1000 div 500;
  g:=a mod 20000 mod 10000 mod 5000 mod 1000 mod 500 div 200;
  h:=a mod 20000 mod 10000 mod 5000 mod 1000 mod 500 mod 200 div 100;
  writeln (b,' db húszezres');
  writeln (c,' db tízezres');
  writeln (d,' db ötezres');
  writeln (e,' db ezres');
  writeln (f,' db ötszázas');
  writeln (g,' db kétszázas');
  writeln (h,' db százas');
  repeat until keypressed;
  end.

Új hozzászólás Aktív témák