Начертить блок схему const q: array [1..12] of string = ( 'сможете ли вы на старом месте работы приспособиться к новым правилам? ', 'быстро ли адаптируетесь в новом коллективе? ', 'способны ли вы высказывать свое мнение публично? ', 'согласитесь ли вы без колебаний перейти в другое учреждение' + #13#10 + ' на должность с большим окладом? ', 'склонны ли вы отрицать свою вину в допущенной ошибке и искать оправдания? ', 'объясняете ли вы обычно причины своего отказа от чего-либо' + #13#10 + ' истинным мотивами, или стараетесь их завуалировать? ', 'меняете ли вы свой прежний взгляд или убеждения в результате' + #13#10 + ' серьезной дискуссии? ', 'будете ли вы стремиться к правке текста,' + #13#10 + ' если вам не нравиться стиль его изложения? ', 'купите ли вы вещь, которая вам нравится, но не так уж необходима? ', 'можете ли вы изменить свое решение' + #13#10 + ' под влиянием уговоров обаятельного человека? ', 'планируете ли заранее свой отпуск? ', 'всегда ли выполняете данное вами обещание? '); a: array [1..12, boolean] of byte = ( (0, 4), (0, 3), (0, 3), (0, 2), (4, 0), (0, 2), (0, 3), (0, 2), (2, 0), (3, 0), (0, 1), (0, 3)); function choice(na: byte): byte; //подпрограмма которая возвращает результат. var c: char; begin repeat write(q[na]); readln(c); if not(c in ['n', 'y', 'n', 'y', 'н', 'д', 'н', 'д', 'h', 'у', 'h', 'у', '0', '1']) then writeln('неверный ответ. повторите.'); //если пользователь ввел неверный ответ. until c in ['n', 'y', 'n', 'y', 'н', 'д', 'н', 'д', 'h', 'у', 'h', 'у', '0', '1']; choice : = a[na, c in ['y', 'y', 'д', 'д', 'у', 'у', '1']] end; var s, i: byte; begin writeln('тест решительный ли вы человек.'); writeln('один из символов y, y, д, д, 1 означает "да",'); //ответ да. writeln('один из символов n, n, н, н, 0 означает "нет".'); //ответ нет. writeln; s : = 0; for i : = 1 to 12 do s : = s + choice(i); case s of //вывод. 0..9: writeln('вы решительны.'); 10..18: writeln('вы принимаете решения осторожно, но не пасуете перед серьезными проблемами.'); 19..28: writeln('вы достаточно решительный человек.') else writeln('вы принимаете решения единолично.') end; readln end.

153

392

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

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

Андрей12385

Информатика

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

Var x,y,z: integer; begin readln(x,y); if (x> 0) and (y> 0) then z: =x+y; if (x< 0) and (y< 0) then z: =x*y; end.

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

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

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

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

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

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