В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
sosisckalizcka
sosisckalizcka
10.03.2020 00:03 •  Информатика

20+10 ! составьте процедуру вывода на экран названия дня недели по его порядковому номеру (1-понедельник, 2-вторник и т.д). с этой процедуры выведите на экран, каким днем недели будет заданное число месяца, если месяц начинается с понедельника.

Показать ответ
Ответ:
drus9070
drus9070
05.10.2020 17:45
Procedure ABC(N:integer);
Begin
Case N of
0:WriteLn('Понедельник');
1:WriteLn('Вторник');
2:WriteLn('Среда');
3:WriteLn('Четверг');
4:WriteLn('Пятница');
5:WriteLn('Суббота');
6:WriteLn('Воскресенье');
End
End;

Var
A:integer;

Begin
WriteLn('Введите число месяца');
ReadLn(A);
ABC((A-1) mod 7);
End.
0,0(0 оценок)
Ответ:
Аккаунт удален
Аккаунт удален
05.10.2020 17:45
Procedure week(n:integer);
Begin
Case n of
 1:WriteLn('Понедельник');
 2:WriteLn('Вторник');
 3:WriteLn('Среда');
 4:WriteLn('Четверг');
 5:WriteLn('Пятница');
 6:WriteLn('Суббота');
 7:WriteLn('Воскресенье');
End
End;
Var d:integer;
Begin
Write('d = ');
ReadLn(d);
week((d-1) mod 7+1);
End.

Пример:
d = 14
Воскресенье
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота