Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
sadgirl22
29.05.2020 08:55 •
Информатика
Составить программу pascal: вводят число от 1-12 -номер если число входит в интервал от 1 до 12, то высвечивается месяц, а если нет то выходит слово !
Показать ответ
Ответ:
Євпак
18.06.2020 23:41
Var months: array [1..12] of string;
x: integer;
begin
months[1] := 'January';
months[2] := 'February';
months[3] := 'March';
months[4] := 'April';
months[5] := 'May';
months[6] := 'June';
months[7] := 'July';
months[8] := 'August';
months[9] := 'September';
months[10] := 'October';
months[11] := 'November';
months[12] := 'December';
read(x);
if ((x < 1) or (x > 12)) then begin
write('Error!');
end else begin
write(months[x]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vova3734
30.04.2022 22:50
которые есть Необходимо решить задачи по информатике! />...
LadybugfromParis
18.11.2022 20:21
4. Введите в компьютер программу Рremier_liga. Выполните ее, получите результаты. Сравните с результатами, приведенными в параграфе. Сама программа в фото!...
Artem574189
19.05.2023 20:43
Какое значение будет иметь переменная р после выполнения следующей программы, если с клавиатуры введено число 7? a = int(input(”Введите число ”)) if (a = 2) and...
DetaRUSION
10.05.2021 17:43
В составе автоколонны было 50 единиц техники. Автобусов было в 1,5 раза больше чем легковых автомобилей, а число грузовых машин составляла 5/3 числа автобусов....
kolafeoktistovp0aj9j
10.05.2021 17:43
При изохорном нагревании давление газа увеличилось в 3 раза. Его объем в этом процессе А) увеличился в 3 раза Б) уменьшился в 3 раза В) не изменился...
КУРОПАТКА777
01.03.2021 06:10
Как изменится модуль силы электрического взаимодействия между двумя точечными зарядами, если величину каждого заряда уменьшить в 4 раза? А) уменьшится в 8 раз Б)...
alina15299
21.02.2020 16:21
В результате какого события в результате распался СССР? а) Самороспуск (съезд народных депутатов СССР 5 сентября 1991) б) Беловежеское соглашение (6 декабря 1991)...
Ларейн2772
07.03.2023 11:02
Сюжет книги сліпий музикант полний сюжет книги...
mrdaaly
05.01.2021 16:18
Решить уравнение 6sin x-3cos²x=0...
danila1311
08.01.2023 03:34
дам 20это к приклепреному тексту...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x: integer;
begin
months[1] := 'January';
months[2] := 'February';
months[3] := 'March';
months[4] := 'April';
months[5] := 'May';
months[6] := 'June';
months[7] := 'July';
months[8] := 'August';
months[9] := 'September';
months[10] := 'October';
months[11] := 'November';
months[12] := 'December';
read(x);
if ((x < 1) or (x > 12)) then begin
write('Error!');
end else begin
write(months[x]);
end;
end.