mod/div, Pascal - rextester

mod/div

program MyProgram;
(*Объявление переменных/ выделение памяти для переменных*)
var i, j, k, n,Summa: integer;
var a,b,c: real;
(*Объявление переменных/ выделение памяти для переменных*)
var intMassiv:array[1..5] of integer;

(*Начало программирования*)
begin
    Summa:=1145;
    writeln('остаток денег от выплаты Суммы купюрами достоинством 500руб.=<145>=', Summa mod 500);
    writeln('остаток денег от выплаты Суммы купюрами достоинством 100руб.=<45>=', Summa mod 100);
    writeln('остаток денег от выплаты Суммы купюрами достоинством 50руб.=<45>=', Summa mod 50);    
    writeln('остаток денег от выплаты Суммы купюрами достоинством 45руб.=<20>=', Summa mod 45);
    
    writeln('Сколько купюр достоинством 500руб. выдаст банкомат=<>=', Summa div 500);
    writeln('Сколько купюр достоинством 100руб. выдаст банкомат=<=', Summa div 100);
    writeln('Сколько купюр достоинством 50руб. выдаст банкомат=<>=', Summa div 50);    
    writeln('Сколько купюр достоинством 10руб. выдаст банкомат=<>=', Summa div 10);    
    
    writeln('mod');
    writeln('99999 mod 1=<0>=', 99999 mod 1);    
    writeln('99999 mod 10=<9>=', 99999 mod 10);
    writeln('99999 mod 100=<99>=', 99999 mod 100);
    writeln('99999 mod 1000=<999>=', 99999 mod 1000);
    writeln('99999 mod 10000=<9999>=', 99999 mod 10000);
        
    writeln('div');   
    writeln('99999 div 1=<99999>=', 99999 div 1);
    writeln('99999 div 10=<9999>=', 99999 div 10);
    writeln('99999 div 100=<999>=', 99999 div 100);
    writeln('99999 div 1000=<99>=', 99999 div 1000);        
    writeln('99999 div 10000=<9>=', 99999 div 10000);   
    
    writeln('mod/div');
    writeln('99999 mod 100 div 1=<99>=', 99999 mod 100 div 1);
    writeln('99999 mod 100 div 10=<9>=', 99999 mod 100 div 10);
    writeln('99999 mod 100 div 100=<0>=', 99999 mod 100 div 100);
    writeln('99999 mod 100 div 1000=<0>=', 99999 mod 100 div 1000);        
    writeln('99999 mod 100 div 10000=<0>=', 99999 mod 100 div 10000);
    
end.


run \| edit \| history \| help	0