Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nankasvanka
29.04.2022 00:06 •
Информатика
По заданному числу вывести рублей например ввел число 5 после enter вышло 5 рублей.
Показать ответ
Ответ:
TryCake
05.10.2020 00:52
Var
s: integer;
t: string;
begin
write('Введите сумму: ');
read(s);
case (s mod 10) of
1: t:=' рубль';
2..4: t:=' рубля';
0, 5..9: t:=' рублей';
else t:='no';
end;
write(s,t);
end.
Пример:
Введите сумму: 5
5 рублей
Введите сумму: 91
91 рубль
0,0
(0 оценок)
Популярные вопросы: Информатика
данаасус
10.05.2021 02:29
Дано целое число n. выведите следующее за ним четное число. при решении этой нельзя использовать условную инструкцию if и циклы. формат входного файла в первой строке...
SoFiA5454555
27.12.2021 23:32
T= max(x+y+z,xy)+ min(x,y). составить блок-схему...
alinabiychinska
12.03.2020 09:14
30 ! запишите наименьшее основание системы счисления, в которой могут быть записаны следующие числа (укажите цифру): 3, 122, 14, 42 запишите наименьшее основание системы...
Янрей
08.03.2022 21:42
1.какую роль в информационной деятельности человека выполняют органы чувств? перечислите все органы чувств человека. 2.почему восприятие вкусов и запахов можно назвать...
Биіккесамға
16.10.2021 23:06
Найти информацию вес 1 символа языка....
gopexar
08.01.2020 20:40
Вычислить количество город в России, численность населения которых меньше 500. ответ записать H1 Работа в Excel ...
adile1991
03.06.2023 19:13
Разработать, ввести в ЭВМ и отладить программу для расчета количества гектаров, которое нужно убрать каждой из 2-x студенческих групп, еслиизвестна общая площадь поля...
vladmasWwr
09.09.2022 22:09
Определите типы данных следующих констант const d = -16.82e-14; f = -d; i = 15; j = ’15’; n = ’-d’;Напишите программу, которая выводит на экран значения констант...
aarchery
24.08.2021 12:00
Имена каких ученых-лингвистов вам известны? какие проблемы языкознания их интересовали?...
mariana122
24.08.2021 12:00
Что такое звуковый запис слова линиею...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s: integer;
t: string;
begin
write('Введите сумму: ');
read(s);
case (s mod 10) of
1: t:=' рубль';
2..4: t:=' рубля';
0, 5..9: t:=' рублей';
else t:='no';
end;
write(s,t);
end.
Пример:
Введите сумму: 5
5 рублей
Введите сумму: 91
91 рубль