[Derol]

Товарисчи, помогите решить задачу, для образца:
Дано натуральное число n (0<= n <=100), определяющее возраст человека в годах. Программа должна вывести сообщение, согласованное с n, например (с правильным окончание слова "год"), 1 год, 23 года, 45 лет и т.д.

[Страдалецъ]

Обрабатываете ситуацию если число заканчивается на:
1 тогда год
2,3,4 тогда года
5,6,7,8,9,0 тогда лет
и исключение из правила если число в диапазоне:
11..14 тогда лет

Ну а код будет таким:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function AgeToStr(N: Byte): String; Var D: String; begin  if N in [11..14] then Result := 'лет'  else begin       D := IntToStr(N);       D := Copy(D,Length(D),1);       case D[1]       of '1': Result := 'год';          '2','3','4': Result := 'года';          else Result := 'лет';          end;       end; end;