Question

Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.

Answer 1

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