procedure Grib(k:integer);
var
gmsg:string;
begin
case (k mod 10) of { Выбор по остатку от деления }
1:gmsg:=' гриб';
2..4:gmsg:=' гриба';
else
gmsg:=' грибов';
end;
WriteLn ('Мы нашли ', k, gmsg);
end;
Для натурального числа к написать фразу "Мы нашли к грибов"(Pascal)
110 грибов
101 гриб
2 гриба и т.д.
Через case of
Спасибо, я уже седня сам замутил
неучтены числа 11, 12.... 11 гриб, 12 гриба - выйдет так.