Program Num Day To Text var d: real: N: string; begin Mwrite(); readln(d); case(d) of 1: N := 'Понедельник; 2; № := 'Вторник'; 3 / N :="Cpeaa"; else write(z): end.

Question 1

Program Num Day To Text var d: real: N: string; begin Mwrite(); readln(d); case(d) of 1: N := 'Понедельник; 2; № := 'Вторник'; 3 / N :="Cpeaa"; else write(z): end.

Answer

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

Вот исправленный вариант программы:

var
  d: integer; // заменил на integer, так как номер дня недели - это целое число
  N: string;

begin
  writeln('Введите номер дня недели:');
  readln(d);

  case d of
    1: N := 'Понедельник';
    2: N := 'Вторник';
    3: N := 'Среда';
    else N := 'Ошибка';
  end;

  writeln(N);
end.

Теперь программа должна корректно отображать текстовое представление дня недели по введенному номеру. Не забудь также исправить опечатки, которые были в изначальном коде. Удачи в изучении программирования!

Question 2

program Num Day To Text var d: real: N: string; begin Mwrite(); readln(d); case(d) of 1: N := 'Понедельник; 2; № := 'Вторник'; 3 / N :="Cpeaa"; else write(z): end.

Answer

Программа, которую ты написал, позволяет преобразовать номер дня недели в текстовое представление на русском языке. В твоем случае, есть несколько исправлений, которые нужно внести для корректной работы программы. Вот исправленный вариант программы: ``` var d: integer; // заменил на integer, так как номер дня недели - это целое число N: string; begin writeln('Введите номер дня недели:'); readln(d); case d of 1: N := 'Понедельник'; 2: N := 'Вторник'; 3: N := 'Среда'; else N := 'Ошибка'; end; writeln(N); end. ``` Теперь программа должна корректно отображать текстовое представление дня недели по введенному номеру. Не забудь также исправить опечатки, которые были в изначальном коде. Удачи в изучении программирования!

Сервисы

Курсы подготовки к ЕГЭ

Бесплатный пробный урок с репетитором

Вопрос от Анонимного юзера 13 мая 2024 05:59

Program Num Day To Text var d: real: N: string; begin Mwrite(); readln(d); case(d) of 1: N := 'Понедельник; 2; № := 'Вторник'; 3 / N :="Cpeaa"; else write(z): end.

Задай свой вопрос

Напиши любую задачу или вопрос, а нейросеть её решит

Мобильное приложение ГДЗ

Поможем улучшить оценки по любому предмету

Новая Школа

Контакты

Мобильное приложение

Саша — ассистент в телеграмме