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

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.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку
×