Question

Musze napisać program w Free pascalu ktory rozwiazuje jakis problem. np. wydawanie reszty lub cos innego. Jeśli ktos umnie napisac owy program to prosze o odpowiedz.

Answer 1

program bankomat_do_wyplacania_pieniedzy;
USES CRT;
        var
        pieniadze:LongInt;
begin
CLRSCR;
        Writeln('Witam!');
        Writeln('Uwaga!!! Prosz© podawa† tylko liczby naturalne dodatnie!');
        Write('Prosz© poda† kwote jakĄ bankomat ma wypacic z konta: ');
        readln(pieniadze);

        writeln;

        if (pieniadze>=200) then
        begin
                writeln('Banknot˘w 200z: ', (pieniadze div 200), ' -szt.');
        end;
        pieniadze:=(pieniadze mod 200);

        if (pieniadze>=100) then
        begin
                writeln('Banknot˘w 100z: ', (pieniadze div 100), ' -szt.');
        end;
        pieniadze:=(pieniadze mod 100);

        if (pieniadze>=50) then
        begin
                writeln('Banknot˘w 50z: ', (pieniadze div 50), ' -szt.');
        end;
        pieniadze:=(pieniadze mod 50);


        if (pieniadze>=20) then
        begin
                writeln('Banknot˘w 20z: ', (pieniadze div 20), ' -szt.');
        end;
        pieniadze:=(pieniadze mod 20);


        if (pieniadze>=10) then
        begin
                writeln('Banknot˘w 10z: ', (pieniadze div 10), ' -szt.');
        end;
        pieniadze:=(pieniadze mod 10);


        if (pieniadze>=5) then
        begin
                writeln('Monet 5z: ', (pieniadze div 5), ' -szt.');
        end;
        pieniadze:=(pieniadze mod 5);


        if (pieniadze>=2) then
        begin
                writeln('Monet 2z: ', (pieniadze div 2), ' -szt.');
        end;
        pieniadze:=(pieniadze mod 2);


        if (pieniadze>=1) then
        begin
                writeln('Monet 1z: ', (pieniadze div 1), ' -szt.');
        end;

        writeln;;

        Writeln('Dziekujemy!');
readln;
end.