задача Div,mod,case Опции

[malou]

Помогайте решить пожалуйста с помощью case div mod.
2. Постановка задачи :Для числа «к» вывести на экран дисплея разу «мы нашли К грибов в лесу» согласовав окончание слова «гриб» с числом «к».к натуральное число. Если не так тема то прошу изменить название

[klem4]

uses crt;
var
   k : word;

begin
   for k := 1 to 100
    do begin
      write('Мы нашли в лесу ',k,' гриб');
      if k div 10 = 1 then write('ов')
       else case k mod 10 of
         2..4 : write('а');
         5..9,0 : write('ов');
       end;
      writeln;
   end;
   readln;
end.

Тегами пользоваться будешь ?

Кстати, эта задача была решена во втором посте .. и дополнена в третьем.

Сообщение отредактировано: volvo - 2.11.2006 21:42