даю 25 балов
На паскале
дано целое число n (1<=n<=9999), определяющее стоимость товара в копейках . Выразить стоимость в рублях и копейках.
Пример: 3 рубля 21 копейка
 

  • uses crt;
    var n: integer;
    begin 
    write('Сколько копеек стоит товар? '); 
    readln(n); 
    write('Товар стоит ',n div 100,' руб'); 
    if (n div 100) mod 100 in [11..19] then write('ей ') else     
    case (n div 100) mod 10 of     
    1:    write('ль ');     
    2..4: write('ля ');     
    else  write('ей ');     
    end; 
    write(n mod 100,' копе'); 
    if n mod 100 in [11..19] then write('ек ') else     
    case n mod 10 of     
    1:    write('йку ');     
    2..4: write('ки ');     
    else  write('ек ');     
    end; 
    readln;
    end.

See also: