Дано число а если это число не четное и больше 10 тогда увеличить это число в 5 раз иначе в 10 раз. даны числа а и b если число а кратно b тогда найти сумму иначе разность. даны числа а и b если первое число кратно 2 или кратно 3 второе число тогда к 1 числу прибавить 10 иначе ко второму числу прибавить 20.

👇

Увидеть ответ

Ответ:

скорпион67

21.01.2022

ответы в файлах ответы в файлах

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

Открыть все ответы

Ответ:

mariabrin27

21.01.2022

Пусть количество флешек равно соответственно a1, a2, a3, a4, причем эти количества уже отсортированы таким образом, что a1≥a2≥a3≥a4.
Рассмотрим худший случай. Выбрали 3 комплекта флешек с максимальным их количеством. a1+a2+a3. После этого добавили одну флешку и получили 100 флешек, среди которых хотя бы одна из наименьшей группы. То есть a1+a2+a3=99 в худшем случае. Значит, a4=113-99=14.
Теперь надо определить наименьшее количество флешек, чтобы гарантированно на руках было 3 вида. Опять же рассмотрим худший случай. Так выбрали флешки, что среди них все флешки первого вида, все флешки второго вида. Но все равно одной флешки третьего вида не хватает. В худшем случае значение a1+a2 должно быть максимально возможным. Казалось бы, есть условие a1+a2+a3=99. Но не стоит забывать про то, что ранее были наложены ограничения на a1, a2, a3, a4: a1≥a2≥a3≥a4. В связи с добавленным позже определением a4=14, ограничение для a3 становится таким: a3≥14. В худшем случае, чтобы максимизировать a1+a2, следует выбрать a3=14. То есть a1+a2=99-14=85. Следовательно, необходимо 85+1=86 флешек, чтобы быть уверенным, что хотя бы три флешки разных видов присутствуют.

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

Ответ:

dasha1957

21.01.2022

1. "Современный вариант"

// PascalABC.NET 3.0, сборка 1076
begin
var n:=ReadInteger('Введите количество элементов массива: ');
var a:=ArrRandom(n,1000,10000);
Write('Исходный массив: ',a,#13#10);
Write('Множество цифр из разряда сотен: ');
a.Select(x->(x mod 1000) div 100).Sorted.Distinct.Println(',')
end.

Тестовое решение:
Введите количество элементов массива: 8
Исходный массив: [9374,4420,8856,8274,7555,2461,8302,6325]
Множество цифр из разряда сотен: 2,3,4,5,8

2. "Школьный вариант"

// PascalABC.NET 3.0, сборка 1076
var
i,n:integer;
sd:set of 0..9;
a:array[1..50] of integer;
begin
Write('Введите количество элементов массива: '); Read(n);
Randomize;
Write('Исходный массив: ');
sd:=[];
for i:=1 to n do begin
    a[i]:=Random(9001)+1000;
    Write(a[i],' ');
    Include(sd,(a[i] mod 1000) div 100)
    end;
Writeln;
Write('Множество цифр из разряда сотен: ');
for i:=0 to 9 do
    if i in sd then Write(i:2);
Writeln
end.

Тестовое решение:
Введите количество элементов массива: 8
Исходный массив: 5332 4215 7231 3399 6989 8904 7804 3517
Множество цифр из разряда сотен: 2 3 5 8 9

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

Это интересно:

Кулинария-и-гостеприимство

17.03.2023

Как сделать ароматизированный сахар: простые идеи и секреты удачного исполнения...

Кулинария-и-гостеприимство

20.02.2020

Как законсервировать свеклу: советы от профессионалов...

Хобби-и-рукоделие

28.04.2022

Как покрасить песок: советы от профессионалов...

Здоровье