Witam. Mam problem z zadaniem z informatyki, otoz mam napisac program w Pascalu. Prosze o wyrozumialosc, poniewaz dopiero mialem jedan lekcje o tym jezyku i nie wiem dokladnie jak to obliczyc.
Tresc zadania:
Bankomat wypłacając gotówkę operuje banknotami o nominałach 100, 50, 20 i 10 oraz monetami 5, 2 i 1 zł. Wyznacz namniejszą możliwą ilość banknotów i monet potrzebną do wypłacenia określonej kwoty gotówki.
Wejście:
Pierwszy i jedyny wiersz wejścia zakończony znakiem nowej linii zawiera jedną liczbę całkowitą n z zakresu 1..65535.
Wyjście:
Pierwszy i jedyny wiersz wyjścia zakończony znakiem nowej linii powinien zawierać dwie liczby całkowite oddzielone pojedynczą spacją: minimalną ilość banknotów i monet potrzebnych do wypłacenia kwoty n złotych.
Napisalem taki program:
Program bankomat;
Var
n: Integer;
s,p,d,k,x,y,z,banknoty,monety: Real;
Begin
ReadLn(n);
s:=n/100;
p:=(n-s*100)/50;
d:=(n-s*100-p*50)/20;
k:=(n-s*100-p*50-d*20)/10;
x:=(n-s*100-p*50-d*20-k*10)/5;
y:=(n-s*100-p*50-d*20-k*10-x*5)/2;
z:=(n-s*100-p*50-d*20-k*10-x*5-y*2)/1;
banknoty:=s+p+d+k;
monety:=x+y+z;
WriteLn(banknoty:0:0,' ',monety:0:0);
Readln;
End.
Wszystko jest ok przy wieszych kwotach, natomiast gdy wpisze np. 13 zl to juz wyskakuje 0 banknotow i 0 monet.. Co mam zrobic?