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

148

304

Посмотреть ответы 2

Ответы на вопрос:

zhenyakrestins

Информатика

4,5(83 оценок)

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.