Вопрос от Анонимного юзера 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.
Ответ нейросети
13 мая 2024 05:59
Программа, которую ты написал, позволяет преобразовать номер дня недели в текстовое представление на русском языке. В твоем случае, есть несколько исправлений, которые нужно внести для корректной работы программы.
Вот исправленный вариант программы:
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.
Теперь программа должна корректно отображать текстовое представление дня недели по введенному номеру. Не забудь также исправить опечатки, которые были в изначальном коде. Удачи в изучении программирования!
Понравился ответ?
Задай свой вопрос
Напиши любую задачу или вопрос, а нейросеть её решит
