Program task8; var dn: string; ch,p: integer; begin writeln('введите число'); readln (ch); if ch > 8 then break; case ch of 1: begin writeln ('понедельник'); writeln (''); writeln (''); writeln (''); writeln (''); writeln ('обж'); writeln (''); end; 2: begin writeln ('вторник '); writeln ('обществознание '); writeln ('информатика'); writeln (''); writeln (' '); writeln (''); writeln (''); writeln ('физкультура'); end; 3: begin writeln ('среда '); writeln (''); writeln ('физкультура'); writeln (''); writeln (''); writeln ('французский'); writeln (''); writeln (''); end; 4: begin writeln ('четверг '); writeln ('французский'); writeln (''); writeln (''); writeln (''); writeln (''); writeln (''); writeln ('физкультура'); end; 5: begin writeln ('пятница '); writeln ('информатика'); writeln ('обществознание'); writeln (''); writeln ('астрономия'); writeln (''); writeln (''); writeln ('биология'); end; 6: begin writeln ('суббота '); writeln ('- в этот день занятий нет'); 7: begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end; end.

250

345

Посмотреть ответы 3

Ответы на вопрос:

Sobaka20012001

Информатика

4,6(10 оценок)

Program task8; var ch: integer; begin writeln('введите число: '); readln (ch); case ch of 1: begin writeln ('понедельник'); writeln (''); writeln (''); writeln (''); writeln (''); writeln ('обж'); writeln (''); end; 2: begin writeln ('вторник '); writeln ('обществознание '); writeln ('информатика'); writeln (''); writeln (' '); writeln (''); writeln (''); writeln ('физкультура'); end; 3: begin writeln ('среда '); writeln (''); writeln ('физкультура'); writeln (''); writeln (''); writeln ('французский'); writeln (''); writeln (''); end; 4: begin writeln ('четверг '); writeln ('французский'); writeln (''); writeln (''); writeln (''); writeln (''); writeln (''); writeln ('физкультура'); end; 5: begin writeln ('пятница '); writeln ('информатика'); writeln ('обществознание'); writeln (''); writeln ('астрономия'); writeln (''); writeln (''); writeln ('биология'); end; 6: begin writeln ('суббота '); writeln ('- в этот день занятий нет'); end; 7: begin writeln ('воскресенье '); writeln ('- в этот день занятий нет'); end; else writeln('ошибка ввода'); end; end. пример: введите число 5пятницаинформатикаобществознаниеастрономия биология

tomirisestanova

Информатика

4,6(22 оценок)

Не работает потому что: 1. оператор break вызывает выход из цикла, а цикла в месте, где употреблен break, нет. по смыслу программы её требовалось прервать и в языке паскаль для этого используется exit. 2. после меток 6: и 7: следует begin, а парного к ним end нет. 3. это не ошибка, но переменные dn и p в программе не используются и их можно не указывать.

Ыыыап

Информатика

4,6(71 оценок)

истинное утверждения сканер не устройство вывода информации поскольку это устройство ввода информации .ложное монитор устройство ввода информации поскольку это устройство вывода информации

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

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

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.