Составьте программу, которая по введенному вами K - числу грибов печатает фразу <Мы нашли в лесу K грибов>, причем согласовывает окончание слова <гриб> с числом K. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры.

Var g,i:integer;
begin 
read(g);
if (g=1) or ((g>20) and (g mod 10=1)) then begin writeln(Мы нашли в лесу ,g, гриб); i:=1; end;
if ((g mod 10>1) and (g mod 10<5)) or ((g>21) and (g mod 10>1) and (g mod 10<5)) then begin writeln(Мы нашли в лесу ,g, гриба); i:=1; end;
if i=0 then writeln(Мы нашли в лесу ,g, грибов);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.