Склавиатуры вводится три строки вида фамилия пробел имя пробел рост.определить фамилию и имя самого высокого человека d pascal abc

193

248

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

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

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.

AlexRico

Информатика

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

var

count, x : integer;

begin

count : = 0;

repeat

read (x);

if (x mod 4=0) and (x mod 10=4) then inc (count);

until x = 0;

writeln (count);

end.

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

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

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

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

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

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

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

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

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

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