Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Кристина0930
27.04.2020 17:00 •
Информатика
Вывести название дня недели по его номеру(паскаль)
Показать ответ
Ответ:
Настятвсердечко
28.09.2020 16:47
//PascalGUI
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник
0,0
(0 оценок)
Популярные вопросы: Информатика
Vanek255
28.12.2022 13:33
Сканируется цветное изображение размером 38,1×38,1 дюйм. разрешающая сканера — 1200×1200 dpi, глубина цвета — 32 бита. какой информационный объём будет иметь полученный...
BigZnaniaFiziki
04.01.2023 16:39
Напишите программу которая определяет находится ли введеный год в настоящем или будущем (работа в паскале )...
amaykovska
13.07.2022 06:14
7. составить программу, позволяющую подсчитать количество минут в заданном году....
vulf20
15.07.2022 08:12
6. составить программу для вывода на экран таблицы и графика значений функции y = f(x) на интервале значений аргумента a x b, изменяющегося с шагом h. значения a, b, h...
Fits97
15.07.2022 08:12
11. составить программу, осуществляющую ввод числовых переменных. если число положительное, то вывести соответствующую информацию и выйти из программы. если число отрицательное,...
99Dia
15.07.2022 08:12
10. составить программу, осуществляющую ввод числовых переменных. при вводе положительного числа вывести информацию: «число больше ноля», при вводе отрицательного числа...
anastejsablek
15.07.2022 08:12
Кучу ! решите желательно с подробным решением ! 1) какой объем имеет оперативная память компьютера если ff шестнадцатеричный адрес последнего байта оперативной памяти...
Lila08564
30.08.2022 07:38
Вычислите сумму чисел x и y если x=11110100 в 2 y=271 в 8 ответ представить в шестнадцатиричной системе счисления...
напарницавМоскве
30.08.2022 07:38
Вычислите сумму чисел x и y если x=11110100 в 2 y=237 в 8 ответ представить в шестнадцатиричной системе счисления...
Портнягин
09.11.2022 17:48
Дана матрица размера 5*10. вывести номер ее последнего столбца, содержащего только положительные элементы. если таких столбцов нет, то вывести 0. язык fortran77...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник