Написать программу. для целого числа k от 1 до 99 напечатать фразу: "мне k лет, учитывая, что может быть год, лет, года. год: 1, 21, 31, (n mod 10=1). лет: 5-20, 25-30, 35-40, 45- (n mod 10=0, 5, 6, 7, 8, 9). года: 2, 3, 4, 22-24, 32-34, 42- (n mod 10=2, 3, 4).
209
486
Ответы на вопрос:
Var k: integer; begin readln(k); case (k mod 10) of 1 : writeln ('мне ',k,' год'); 0, 5, 6, 7, 8, 9 : writeln ('мне ',k,' лет'); 2, 3, 4 : writeln ('мне ',k,' года'); end; end.вот рабочее решение
Популярно: Информатика
-
elenamatrus77728.05.2020 19:09
-
RegexArtSek20.08.2022 10:37
-
лёха192019.04.2020 16:04
-
elvin12345110.07.2021 08:01
-
360Polina36018.05.2023 12:18
-
alla505128.06.2022 21:06
-
БеднаяЕва31.12.2020 15:09
-
rwessi122303.06.2020 23:40
-
dadamuhamedovag20.08.2021 08:49
-
простоникр17.12.2022 09:59