Сообщение на тему 1.кодировка сообщений. 2.технические средства компьютерной графики.

134

255

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

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

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.