Информатика: Информатика, как сделать этот пример?

mrtimkarov

28.10.2020 20:47

Информатика

Есть ответ 👍

Информатика, как сделать этот пример?

181

483

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

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

vikalavrlavr

Информатика

4,5(7 оценок)

Type str = array [1..100] of char; var maxs, tmps : str; count, max, tmp, ctmp : integer; procedure reads (var s : str; var len, val : integer); var b : boolean; c : char; i : integer; begin i : = 0; b : = false; repeat read (c); if not b or (c < > ' ') then begin if c = ' ' then b : = true; inc (i); s[i] : = c; c : = '1'; end; until b and (c = ' '); len : = i; readln (val); end; begin assign (input, 'input.txt'); reset (input); reads (maxs, count, max); while not eof do begin reads (tmps, ctmp, tmp); if tmp > max then begin max : = tmp; count : = ctmp; maxs : = tmps; end; end; for tmp : = 1 to count do write (maxs[tmp]); end.

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

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

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

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

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

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

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

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

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

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