Плз! на языке паскаля составьте программу, которая по введенному вами k – числу грибов, печатает фразу «мы нашли в лесу k грибов, причем согласовывает окончание слова «гриб» с числом k.
167
412
Ответы на вопрос:
Var k: integer; begin write('k = '); readln(k); write('мы нашли ',k); if (k> 9)and(k< 20) then writeln(' грибов') else case k mod 10 of 0,5..9: writeln(' грибов'); 1: writeln(' гриб'); 2..4: writeln(' гриба'); end; end.
Популярно: Информатика
-
любимчик2705.03.2020 23:35
-
mmaxprophet16.08.2020 13:24
-
Заноза1902.05.2023 13:41
-
Лиза4511117.05.2020 05:03
-
Aruzhankaaaaa117.11.2020 13:24
-
kriskamai200230.03.2022 23:36
-
typaya191121.06.2021 03:19
-
Ссика09.01.2021 15:10
-
xag27.11.2022 23:54
-
LilGirl123.05.2023 15:03