Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
2) Решил бы еще, но замучаюсь всё это в пэйнте рисовать:)
Прыгало высоко кенгуру.
Бежал быстро гепард.
(звучит не очень красиво, но по схеме)
Функция F = ((НЕ(0) И 1) И (0 ИЛИ 1)) ИЛИ (НЕ(0)) <=>
F = ((1*1)*1) + (1) = 1.
Сперва разберёмся, какие значения может принимать каждая переменная:
i, k: integer - целые числа
x, y: real - дробные и целые числа
n: char - один символ
z: Vremia_God - Win, Spr, Sum или Otm.
Опираясь на это, получаем следующий ответ:
1-f,d
2-a,e
3-a,e
4-a,c,e
5-b
6-a,c,e