Задание 5 Параграф 23 ГДЗ Семакин 8 класс (Информатика)

Задача

program task_5;
var
c: byte;
begin
write(‘Привет! Введи номер любого дня недели: ‘);
readln(c);
case c of
1: writeln(‘Это понедельник’);
2: writeln(‘Это вторник’);
3: writeln(‘Это среда’);
4: writeln(‘Это четверг’);
5: writeln(‘Это пятница’);
6: writeln(‘Это суббота’);
7: writeln(‘Это воскресенье’);
end;
end.

Подробный ответ

Для решения удобно использовать оператор выбора case: в зависимости от введённого номера дня недели программа выводит его название.

program task_5;
var
  c: byte;
begin
  write(‘Привет! Введи номер любого дня недели: ‘);
  readln(c);
  case c of
    1: writeln(‘Это понедельник’);
    2: writeln(‘Это вторник’);
    3: writeln(‘Это среда’);
    4: writeln(‘Это четверг’);
    5: writeln(‘Это пятница’);
    6: writeln(‘Это суббота’);
    7: writeln(‘Это воскресенье’);
  end;
end.