Нужно, чтобы программа заработала. program sp_pesen; const n=2; {количество песен} var m,naz,stil,time,name: array[1..n] of pesni; {массив песен} i: 1..n; begin end. type songs = record {описание записи} naz: string[10]; stil: string[10]; time: real; {вывод результата} for i: =1 to n do with m[i] do if stil = 'rap'then writeln(naz: 6,stil: 8,time: 9: 1,name: 5); writeln; begin write('введите название песни ',i,' '); readln(naz); write('введите жанр песни '); readln(stil); write('введите длительность песни в минутах '); readln(time); writeln; end; {вывод результата} writeln('название стиль длительность'); for i: =1 to n do with m[i] do if (time > =2)and(time< =3)and(name='string')then writeln(naz: 6,stil: 8,time: 9: 1,name: 5); writeln; end.

269

449

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

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

torimuse

Информатика

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

Program sp_pesen; const n=2; {количество песен} type songs = record {описание записи} naz: string[10]; stil: string[10]; time: real; name: string[20]; end; var m: array[1..n] of songs; {массив песен} i: 1..n; begin {ввод} for i: =1 to n do with m[i] do begin write('введите название песни ',i,' '); readln(naz); write('введите жанр песни '); readln(stil); write('введите длительность песни в минутах '); readln(time); write('введите исполнителя ',i,' '); readln(name); writeln; end; {вывод результата} writeln('названия песен в стиле rap'); for i: =1 to n do with m[i] do if stil = 'rap' then writeln(naz: 6,stil: 8,time: 9: 1,name: 5); writeln; writeln('название стиль длительность'); for i: =1 to n do with m[i] do if (time > =2)and(time< =3)and(name='string')then writeln(naz: 6,stil: 8,time: 9: 1,name: 5); writeln; end.

иван1159

Информатика

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

1. 4 клітинки

2. 4 клітинки

Объяснение:

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

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

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

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

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

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

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

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

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

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