Pascalabcnet. с прогой по матрице . у нас есть три столбца : стоимость, сорт, количество в столбце "сорт" всегда вводятся числа: 00 01 10 11 в стоимости и количестве любые. нужно написать прогу которая выводит общую стоимость товаров по каждому сорту. вводим : 17 01 2 3 00 5 7 01 4 вывод: 00 - 15 01 - 34+28=62

122

247

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

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

Снежок74

Информатика

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

Const n = 7; // количество наименований товаров var a: array[1..n,1..3] of integer; i,k,s: integer; begin for i: = 1 to n do read(a[i,1],a[i,2],a[i,3]); k: =0; for i: = n downto 1 do if a[i,2] = 0 then k: =i; if k > 0 then begin write('00 - ',a[k,1]*a[k,3]); s: =0; for i: = k+1 to n do if a[i,2] = 0 then begin write('+',a[i,1]*a[i,3]); s: =s+a[i,1]*a[i,3]; end; if s < > 0 then write('=',s+a[k,1]*a[k,3]); writeln; end; k: =0; for i: = n downto 1 do if a[i,2] = 1 then k: =i; if k > 0 then begin write('01 - ',a[k,1]*a[k,3]); s: =0; for i: = k+1 to n do if a[i,2] = 1 then begin write('+',a[i,1]*a[i,3]); s: =s+a[i,1]*a[i,3]; end; if s < > 0 then write('=',s+a[k,1]*a[k,3]); writeln; end; k: =0; for i: = n downto 1 do if a[i,2] = 10 then k: =i; if k > 0 then begin write('10 - ',a[k,1]*a[k,3]); s: =0; for i: = k+1 to n do if a[i,2] = 10 then begin write('+',a[i,1]*a[i,3]); s: =s+a[i,1]*a[i,3]; end; if s < > 0 then write('=',s+a[k,1]*a[k,3]); writeln; end; k: =0; for i: = n downto 1 do if a[i,2] = 11 then k: =i; if k > 0 then begin write('11 - ',a[k,1]*a[k,3]); s: =0; for i: = k+1 to n do if a[i,2] = 11 then begin write('+',a[i,1]*a[i,3]); s: =s+a[i,1]*a[i,3]; end; if s < > 0 then write('=',s+a[k,1]*a[k,3]); writeln; end; end. пример работы программы: 17 1 2 3 0 5 7 1 4 8 11 9 95 0 3 31 10 44 5 1 6 00 - 15+285=300 01 - 34+28+30=92 10 - 1364 11 - 72

alisa2847274

Информатика

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

Отличить ярлыкот значка можно в меню “свойства”: там прямо будет написано, если перед вами ярлык , будет дан адрес объекта , на который он ссылается – и ничего кроме.

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

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

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

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

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

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

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

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

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

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