В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Nezox175
Nezox175
10.12.2022 05:08 •  Информатика

Составьте математическую модель и программу на языке Basic

Показать ответ
Ответ:
pervushin752
pervushin752
23.11.2020 16:34

Напишите программу (python), которая соберет все подарки Иа от всех друзей.

Формат ввода

Целое число — количество строк, затем сами строки, в которых сначала вводится подарок, а потом через дефис, окруженный пробелами, имя друга.

Формат вывода

Вывести для каждого друга (друзья выводятся в обратном алфавитном порядке) список его подарков Иа, но уже в алфавитном порядке. Формат вывода:

Друг: подарок, подарок, подарок

Ввод

5

Букет из чертополоха - Кролик

Бант для хвоста - Кристофер Робин

Гвоздик для хвоста - Кристофер Робин

Спаржевый пудинг - Кролик

Зеленая тряпочка - Пятачок

Вывод

Пятачок: Зеленая тряпочка

Кролик: Букет из чертополоха, Спаржевый пудинг

Кристофер Робин: Бант для хвоста, Гвоздик для хвоста

0,0(0 оценок)
Ответ:
Rozeta2003
Rozeta2003
06.11.2022 16:00
// PascalABC.NET 3.3

const n=4;
begin
  Writeln('1 массив:');
  var a:=MatrRandom(n,n,-10,10); a.Println(6);
  Writeln('2 массив:');
  var b:=MatrRandom(n,n,-10,10); b.Println(6);
  var c:=a.ElementsByRow.Where(x->x<0)+b.ElementsByRow.Where(x->x<0)+
      a.ElementsByRow.Where(x->x=0)+b.ElementsByRow.Where(x->x=0)+
      a.ElementsByRow.Where(x->x>0)+b.ElementsByRow.Where(x->x>0);
  c.Println;
end.

Пример:
1 массив:
    -6    -3     1     8
     6    -3    -8     0
     8    10    -3    -9
     1    -9    -2     6
2 массив:
    -7    -1    -3     9
    -2    -6     5     2
     0    10     1     0
     5    -2     5     5
-6 -3 -3 -8 -3 -9 -9 -2 -7 -1 -3 -2 -6 -2 0 0 0 1 8 6 8 10 1 6 9 5 2 10 1 5 5 5
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота