Дано натуральное число n (1n1188), определяющее возраст человека (в месяцах). Выразить...

Question

Дано натуральное число n (1n1188), определяющее возраст человека (в месяцах). Выразить возраст в годах и месяцах. Например, 21 год 10 месяцев, 52 года 1 месяц, 46 лет равно и т.д.

Answer 1

Program saidim;
uses crt;
var
 m:integer;
begin
  writeln('******************************');
  writeln('**   Переводилка возраста   **');
  writeln('******************************');
  writeln();
  writeln('Введите возраст в месяцах');
  readln(m);
  writeln('*** alphaues is thinking... ***');
  writeln();
 // writeln('Возраст равен ',m div 12,' лет ',m mod 12,' месяцев');
  write('Возраст равен ',m div 12);
  case ((m div 12) mod 10) of
    1:  write(' год ');
    2,3,4:  write(' годa ');
    else   write(' лет ');
  end;
  case (m mod 12) of
    0:  writeln(' ровно ');
    1:  writeln(m mod 12,' месяц ');
    2,3,4:  writeln(m mod 12,' месяцa ');
    else   writeln(m mod 12,' месяцев ');
  end;
end.