Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Вано137
11.12.2020 13:25 •
Информатика
Программа должна вывести введенное число n и одно из слов (на латинице): korov, korova или korovy, например, 1 korova, 2 korovy, 5 korov. между числом и словом должен стоять ровно один пробел. решить в паскале abc
Показать ответ
Ответ:
Обжора228
19.07.2020 07:18
Begin
var a := ReadInteger;
var c : string;
Assert(a >= 1);
Assert(a <= 99);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: c := 'korova';
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: c := 'korovy';
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..100: c := 'korov';
end;
Writeln('На лугу пасется ', a, ' ', c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mariakhh2006
26.07.2020 03:08
Упростите логическое выражение....
1483983829
23.01.2023 05:38
Определить, сколько газет из 60 листов уместиться на лазерном диске емкостью 750 мб, если 1 страница содержит 80 строк по 65 символов. сколько таких дисков понадобиться для хранения...
RumikoZun
23.01.2023 05:38
Оценить, сколько дипломных работ поместиться на лазерном диске емкостью 250 мб, если одна работа составляет в среднем 30 страниц по 35 строк. в строке 50 символов...
KarinaKOSMOS
11.02.2022 11:10
Команда, которая отображает идентификатор процесса, который использует больше всего ЦПУ...
СССС69
02.07.2021 19:46
Используя материал упраж-нения 399, составьте рекомендациио правильном питании. Используй-те безличные глаголы со значениемжелательности, необходимости CO-вершения действия....
egorkashoshin0
05.05.2023 02:53
Решите задачу: Гришин, находясь в состоянии алкогольного опьянения, упал и сломал руку. В приёмном отделении он отказался пройти рентгенологическое обследование, а поставить ему...
arslanovaigiz
26.05.2020 00:48
буду крайне благодарен ...
Vitaliano2004
22.10.2022 00:58
Найдите пересечение и объединение множеств:Ручек и тетрадей стульев и мебели яблок и овощей фауны и ртицы...
ritteru
22.10.2022 00:58
They (to visit ) thid museum yesterdayкак предложение составить ???...
badder02021
12.10.2020 04:41
Урок систематизациичого анализа по теме «Восматизации Исторических сведений и их сопоставитель-а по теме «Восстания начала XVIII в.».1 Заполните таблицу «Народные движения в начале...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a := ReadInteger;
var c : string;
Assert(a >= 1);
Assert(a <= 99);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: c := 'korova';
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: c := 'korovy';
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..100: c := 'korov';
end;
Writeln('На лугу пасется ', a, ' ', c);
end.