М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
shoma22
shoma22
11.09.2022 01:08 •  Информатика

Скоро Новый Год Ив Astana IT University студенты решили сыграть в Тайного Санту. Студент Арман подготовил по настоящему волшебный подарок. Это была шляпа, в которой хранились ручки
различных цветов в неограниченном количестве. Каждый студент мог не глядя вытащить одну ручку из
Шляпы и забрать ее себе. За этим процессом наблюдали преподаватели. Арман предложил им задачку:
не глядя Вытащить минимальное количество ручек, чтобы среди них обязательно были две одного
Цвета. Если преподаватели смогут правильно ответить на вопрос, они заберут этот подарок себе.
преподавателям решить задачку от Армана.
Input Format
Вводится одно целое положительное число А- количество цветов ручек.
Constraints
(1 <= A <= 1049)
Output Format
Выводится одно число - ответ на задачу.
Sample Input 0
4
Sample Output 0
5​

👇
Открыть все ответы
Ответ:
abdulismailova2
abdulismailova2
11.09.2022
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var m:=ReadInteger('Количество элементов в массиве А (m):');
  var n:=ReadInteger('Количество элементов в массиве B (n):');
  var k:=ReadInteger('Позиция вставки k (1<k<m):');
  if (k>1) and (k<m) then begin
    var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
    var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
    Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
    end
  else Writeln('Вы нарушили условие 1<k<m')
end.

Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26
4,4(17 оценок)
Ответ:
mar244144
mar244144
11.09.2022
Program smallest;<br /><br />var <br />a,b,c:integer;<br /><br />begin<br /><br />write('введите а: ');<br />readln(a);<br />write('введите b: ');<br />readln(b);<br />write('введите c: ');<br />readln(c);<br /><br />if (a - b) > 0 then <br />begin<br />if (a - c) > 0 then<br />writeln('a - наибольшее!');<br />end;<br /><br />if (b - a) > 0 then<br />begin<br />if (b - c) > 0 then<br />writeln('b - наибольшее!');<br />end;<br /><br />if (c - a) > 0 then<br />begin<br />if (c - b) > 0 then<br />writeln('c - наибольшее!');<br />end;<br /><br />end.
4,6(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ