tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Пользователь вводит число,
Пользователь вводит число, если это число равно 1 , то это январь, если равно 2 , то это февраль , 3 - это март. и т.д. 12 месяцев.
Chakachoco
3 21.09.2019 07:40
0
Ответы
romanovanelya
08.10.2020 06:39
{ Pascal }
PROGRAM Calendar(INPUT, OUTPUT);
VAR
Num: INTEGER;
BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num OF
1: WRITELN('Январь');
2: WRITELN('Февраль');
3: WRITELN('Март');
4: WRITELN('Апрель');
5: WRITELN('Май');
6: WRITELN('Июнь');
7: WRITELN('Июль');
8: WRITELN('Август');
9: WRITELN('Сентябрь');
10: WRITELN('Октябрь');
11: WRITELN('Ноябрь');
12: WRITELN('Декабрь');
END;
END.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
rickieee
17.04.2020 14:39
Назовите двоично-кодированные системы, цифры которых кодируются всеми комбинация и данного количества двоичных разрядов ...
mariyakarimova2
17.04.2020 14:40
Рассчитать значение y определив и использовав необходимую функцию y=1+sin1^3+3+sin3^3+5+sin5^5...
ivanovasasha2
17.04.2020 23:34
Составить программу, позволяющую с датчика случайных чисел сформировать матрицу размерностью N. Определить:минимальный элемент, лежащий ниже побочной диагонали;произведение ненулевых...
vladmasWwr
09.04.2020 11:48
Складіть блок-схему фрагмента алгоритму, у якому цикл з лі- чильником вкладено в неповне розгалуження. Поясніть вико- нання складеного фрагмента....
Vera4441
16.10.2020 05:59
Составить программу сортировки массива в обратном порядке....
GreenDjai
16.10.2020 05:58
КОД НАПИШИТЕ НА ЯЗЫКЕ С++ Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [174457; 174505], числа, имеющие ровно два различных натуральных...
космос63
06.06.2019 08:11
Разместите вычисленные значения функции y=1+sin(π/8-x) для х∈[0,2] с шагом h=0,2 в одномерный массив y. “cожмите” числовой массив, выбросив из него отрицательные числа. определите,...
soz2019oy63um
03.12.2021 21:20
ЗНАМЕНИТЫЕ ПРОГРАММИСТЫ ЖЕНЩИНЫ БЫСТРЕЙ...
miramill
03.12.2021 21:17
Написать логическое выражение, которое будет принимать значение TRUE, если целые числа X и Y имеют одинаковые младшие разряды и FALSE в противном случае. На паскале ....
barenzi
30.10.2020 14:04
1. Направление, к которому относятся произведения Ч. Айтматова «Первый учитель», «Красное яблоко»? А) реализмБ) классицизмВ) романтизмГ) сентиментализм 2.Название произведения...
Популярные вопросы
Периоды обращения по окружности α - частицы (Тα) и протона (Тр), влетевших...
2
визначте силу струму в резистрі якщо за 5 хв через його поперечний переріз...
1
2) Найдите значение выражения: Na + с при 3a = -0,27, b = 0,63; a=b=...
2
Сдавать завтра. ( спам удаляю сразу)....
1
Дание 6 ( ) Найдите и исправьте грамматическую(-ие) ошибку(-и) в предложении(-ях)....
3
1 Прочитайте в учебнике материал на с.176 -178. и ответьте кратко на вопросы:...
2
. Гра «Правильний порядок» Розставте наведені епізоди в правильному порядку.1. Викрадення...
1
Равен 155 градусов найти дорогой его угол не равный данному ответ в градусах...
1
Представь квадрат двучлена в виде многочлена: (18x4−78)2....
2
Окислительно восстановительные свойства доклад на 5 мин надо даю 100...
3
PROGRAM Calendar(INPUT, OUTPUT);
VAR
Num: INTEGER;
BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num OF
1: WRITELN('Январь');
2: WRITELN('Февраль');
3: WRITELN('Март');
4: WRITELN('Апрель');
5: WRITELN('Май');
6: WRITELN('Июнь');
7: WRITELN('Июль');
8: WRITELN('Август');
9: WRITELN('Сентябрь');
10: WRITELN('Октябрь');
11: WRITELN('Ноябрь');
12: WRITELN('Декабрь');
END;
END.