Question

Вводится номер дня недели. Вывести его расшифровку в текстовом виде .Если номера такого нет " Неправильный ввод'. Паскаль!!

Answer 1

Program day; var x:byte;beginwriteln('Введите число, чтобы узнать, какому дню недели оно соответствует:');Readln(x);Case x of0: writeln('Такого дня недели не существует.');1: writeln('Понедельник.');2: writeln('Вторник.');3: writeln('Среда.');4: writeln('Четверг.');5: writeln('Пятница.');6: writeln('Суббота.');7: writeln('Воскресенье.');8..1000: writeln('еправильный ввод.');end;end.

Answer 2

Перевод номера дня недели в текстовый вид

Если вводится номер дня недели, то можно вывести его расшифровку в текстовом виде. Вот пример кода на языке Паскаль, который выполняет данную задачу:

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

В этом примере мы считываем номер дня недели с помощью функции `readln` и затем используем оператор `case` для определения соответствующего текстового значения. Если введен некорректный номер, выводится сообщение "Неправильный ввод".

Пример использования:

Введите номер дня недели (от 1 до 7):
3
Среда

Введите номер дня недели (от 1 до 7):
8
Неправильный ввод

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.