Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
fainakorolenko
19.09.2020 08:15 •
Информатика
Программа должна вывести введенное число n и одно из слов (на латинице): korov, korova или korovy, например, 1 korova, 2 korovy, 5 korov. между числом и словом должен стоять ровно один пробел. решить в паскале abc
Показать ответ
Ответ:
zlatoslava2p08lf0
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 оценок)
Популярные вопросы: Информатика
Юлия757445
30.08.2021 11:48
Як реагує програма коли користувач вводить числа збільшою або меншою кількість цифр?...
AlexxP
16.01.2022 22:00
До ть з інформаикою! на вході маємо 2 числа (наприклад a і b). програма повинна виконати дії: 1) ba; 2) a*b, за до функцій модуля math. результат вивести на екран....
karinka101
23.09.2020 04:12
1. Последовательность слайдов, содержащих мультимедийные объектыА) презентация Б) макет В) дизайн слайдов2. В процессе демонстрации презентации пользователь может ли изменять...
alidagalamova2003
14.01.2022 20:27
Ть хтось! написати програму інформатика протабулювати функцію у=х*sinx на проміжку - 1 до 1 з кроком 0.2знайти середнє арефмитичне від ємних значень...
falinova07
24.02.2021 22:23
найти ошибки в коде Python: x=int(input( Введите x: )) if x % 2 == 0: print(“Чётное”) else : print(“Нечётное”) if x % 4 == 0: print(“Кратное 4”) else : if x % 5==0: print(“Кратно...
lizagileva2015
16.07.2022 22:41
Надо а сделать ( домики и деревья)...
котик8308
14.11.2022 10:22
Кран поднимает балку на высоту 33 м, вес балки равен 17 кн.Вычисли работу, совершаемую краном.ответ: работа равна ? кДж....
Music05
14.11.2022 10:22
Синтаксический разбор:Обладая необыкновенный музыкальным даром, композитор пополнил сокровищницу мирового искусства своими прекрасными произведениями люди...
фелицист
24.04.2021 18:48
Хто був першим тренером Івана Сили?...
СоваИгорь
24.04.2021 18:48
Півострів Північної Америки, на якому є діючі вулкани * 1.Лабрадор 2.Каліфорнійський 3.Флорида 4.Юкатан...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.