Вставьте в программу program basket; uses crt; var n,i,k: integer; begin clrscr; writeln('введите количество учеников'); readln(n); writeln('введите фамилию и рост ученика'); for i: =1 to n do begin write('fam[',i,']= '); read(fam[i]); write('rost[',i,']= '); readln(rost[i]); end; k: =0;
for i: =1 to n do if rost[i]> =170 then begin k: =k+1; kom[k]: =fam[i]; end; if k=0 then writeln('кандидатов нет') else writeln('список претендентов в сборную школы'); writeln; for i: =1 to k do writeln(kom[i]); readln end. недостающие строки: fam: array[1..10] of string; rost:
array[1..10] of integer; kom: array[1..10] of string; (паскаль)

139

297

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

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

ajamshid1976p042ct

Информатика

4,8(91 оценок)

Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

begin

for var k : = 1 to 9 do

for var o : = 0 to 9 do

for var t : = 1 to 9 do

if 100 * k + 10 * o + t + 100 * k + 10 * t + o =

100 * t + 10 * o + k then

$'{k}{o}{t}+{k}{t}{o}={t}{o}{k}'.println

end.

459+495=954

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

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

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

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

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

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