Три массива: вопросы викторины, верные ответы, ответы, которые будут введены участниками. ответы в основном из одного - двух слов. все вопросы и ответы ввожу присваиванием, но когда пишу цикл на ввод ответа, то первый раз цикл срабатывает нормально, а последующие разы программа не требует ввода, то есть оператор read не работает. что я сделала не так? вот программа: program m81337154u; var i: integer; ans: array [1..12] of string; quest: array [1..12] of string; answ: array [1..12] of string; begin writeln (''); ans[1]: =''; ans[2]: =''; ans[3]: =''; ans[4]: =''; ans[5]: =''; ans[6]: =''; ans[7]: =''; ans[8]: =''; ans[9]: =''; ans[10]: =''; ans[11]: =''; ans[12]: =''; quest[1]: =''; quest[2]: =''; quest[3]: =''; quest[4]: =''; quest[5]: =''; quest[6]: =''; quest[7]: =''; quest[8]: =''; quest[9]: =''; quest[10]: =''; quest[11]: =''; quest[12]: =''; for i: =1 to 12 do begin writeln ('вопрос номер ', i); writeln (quest[i]); write ('ваш ответ - '); read (answ[i]); if answ[i]=ans[i] then writeln ('ответ верный') else writeln ('ответ неверный, попробуйте снова'); writeln; end; writeln ('congrats'); end. где-то есть ошибка? или паскаль никогда не повторяет read в цикле?

196

483

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

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

Lila08564

Информатика

4,4(19 оценок)

Program p; var i: integer; quest: array [1..2] of string; ans: array [1..2] of string; answ: array [1..2] of string; begin quest[1]: ='20*2='; quest[2]: ='3*5='; ans[1]: ='40'; ans[2]: ='15'; for i: =1 to 2 do begin writeln ('вопрос номер ', i); writeln (quest[i]); write ('ваш ответ - '); readln (answ[i]); while answ[i]< > ans[i] do begin writeln ('ответ неверный, попробуйте снова'); readln(answ[i]); end; writeln ('ответ верный'); writeln; end; writeln ('congrats'); end. пример: вопрос номер 1 20*2= ваш ответ - 40 ответ верный вопрос номер 2 3*5= ваш ответ - 10 ответ неверный, попробуйте снова 14 ответ неверный, попробуйте снова 15 ответ верный congrats

марьяна126

Информатика

4,4(58 оценок)

пройдем по циклу:

i = 1 a[1] =1 a[2] = 1

i = 2 a[3] =2a[4] = 4

i = 3 a[5] =3 a[6] = 9

i = 4 a[7] =4 a[8] = 16

i = 5 a[9] =5 a[10] = 25

следовательно a[5] =3

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

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

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

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

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

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

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

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

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

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