Составить программу, выводящую на экран сведения о периодических изданиях (наименование издания, тираж, годовая стоимость). сначала вывести сведения, отсортированные по возрастанию тиража, затем вывести сведения, отсортированные по наименованию по алфавиту.

149

195

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

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

Dikaya24

Информатика

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

Var i, k, n, j, z, x: integer; b, c, d: array[1..10000] of integer; a, e: array[1..10000] of string; m: string; begin readln(n); for i: =1 to n do readln(a[i]); readln(b[i]); readln(c[i]); for i: =1 to n do for j: =1 to n do if b[i]< b[j] then begin m: =a[i]; a[i]: =a[j]; a[j]: =m; z: =b[i]; b[i]: =b[j]; b[j]: =z; x: =c[i]; c[i]: =c[j]; c[j]: =x; end; for i: =1 to n do writeln(a[i],' ',b[i],' ',c[i]); {это сортировка по тиражу} for i: =1 to n do begin e[i]: =copy(a[i], 1, 2); {тут расчет на то, что название начинается с заглавной буквы алфавита} val(e[i], d[i]); end; for i: =1 to n do for j: =1 to n do if d[i]< d[j] then begin m: =a[i]; a[i]: =a[j]; a[j]: =m; z: =b[i]; b[i]: =b[j]; b[j]: =z; x: =c[i]; c[i]: =c[j]; c[j]: =x; end; for i: =1 to n do writeln(a[i],' ',b[i],' ',c[i]); {сортировка по тиражу} readln; end.

kovtunenkoone

Информатика

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

Uses crt; var t,s: real; begin clrscr; writeln('vvedite s'); readln(s); writeln('vvedite t'); readln(t); writeln('skorost peshehoda =' s / t); end.

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

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

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

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

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

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

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

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

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

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