Оператор выбора Case. По номеру дня недели напечатать его название

@Карамелька · Регистрация: 13.06.2012

Author24 — интернет-сервис помощи студентам

По заданному порядковому номеру дня недели напечатать его название и указать рабочий это день или не рабочий (оператор выбора Case).
Например: Введите № дня недели -> 1 Это Понедельник (рабочий)

@ermolay · 13.06.2012, 23:07

Pascal

var
  n: integer;
begin
  write('Введите № дня недели -> ');
  readln(n);
  case n of
    1: write('Понедельник');
    2: write('Вторник');
    3: write('Среда');
    4: write('Четверг');
    5: write('Пятница');
    6: write('Суббота');
    7: write('Воскресенье');
  end;
  case n of 
    1..5: writeln(' (рабочий)');
    6..7: writeln(' (выходной)');
  end;
  readln;
end.

@Карамелька 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 18
		1
	Оператор выбора Case. По номеру дня недели напечатать его название 13.06.2012, 23:01. Показов 17255. Ответов 1 Метки нет (Все метки) По заданному порядковому номеру дня недели напечатать его название и указать рабочий это день или не рабочий (оператор выбора Case). Например: Введите № дня недели -> 1 Это Понедельник (рабочий) 0

	13.06.2012, 23:07

Оператор выбора Case. По номеру дня недели напечатать его название

Решение