день недели

@Blake_102 · Регистрация: 01.04.2010

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

Всем hello!!! Ввести номер дня недели, вывести ему соотвецтвующий день недели с приминением оператора case??? Зарание благодарен!!!!

@SuPeR XaKer · 06.10.2010, 00:01

Даж спрашивать такое стрёмно

Pascal

Uses
 CRT;
Var
 day:integer;
begin
ClrScr;
write('Введите номер дня: ');
 readln(day);
 case day of
  1: writeln('Понедельник');
  2: writeln('Вторник');
  3: writeln('Среда');
  4: writeln('Четверг');
  5: writeln('Пятница');
  6: writeln('Суббота');
  7: writeln('Воскресенье')
  else writeln('В неделе семь дней!!!');
 end;
readkey
end.

@Blake_102 6 / 7 / 0 Регистрация: 01.04.2010 Сообщений: 289
		1
	день недели 05.10.2010, 23:50. Показов 1311. Ответов 1 Метки нет (Все метки) Всем hello!!! Ввести номер дня недели, вывести ему соотвецтвующий день недели с приминением оператора case??? Зарание благодарен!!!! 0

Опции темы

день недели

Решение