Сделать программу в паскале классификацию по возрасту с 10 лет по 100. Срочно надо. и чтобы выводило только одну строчку ответа

+ 0 -

умедджон

31 марта 2014 г., 12:21:17 (10 лет назад)

Вроде так:

var b, c: integer;
begin
  Writeln('Введите ваш возраст');
  Readln(b);
  if b <= 0 then WriteLn('Вам 0 лет')
      else begin
         c := b mod 100;
         if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
         else
            case (b mod 10) of
               1: WriteLn('Вам ', b, ' год');
               2..4: WriteLn('Вам ', b, ' года');
               5..9, 0: WriteLn('Вам ', b, ' лет')
              end;
   end;
 Writeln('Для выхода нажмите <Enter>');
 Readln;
end.