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

Дано 4 числа. Найти наибольшие и наименьшее число с

👇
Ответ:
ShahKulu
ShahKulu
28.05.2022

var a, b, c, d, min, max: integer;

begin

 // Min

 readln(a, b, c, d);

 if (a <= b) and (a <= c) and (a <= d) then min := a

 else if (b <= a) and (b <= c) and (b <= d) then min := b

 else if (c <= a) and (c <= b) and (c <= d) then min := c

 else if (d <= a) and (d <= b) and (d <= c) then min := d;

 // Max

 if (a >= b) and (a >= c) and (a >= d) then max := a

 else if (b >= a) and (b >= c) and (b >= d) then max := b

 else if (c >= a) and (c >= b) and (c >= d) then max := c

 else if (d >= a) and (d >= b) and (d >= c) then max := d;

   

 writeln('Min: ', min);

 writeln('Max: ', max);

end.

4,5(10 оценок)
Открыть все ответы
Ответ:
НюшаS12
НюшаS12
28.05.2022

var

       a: array [1..30] of Word;

       i, c, sum: Word;

       

begin

       Randomize;

       

       for i := 1 to 30 do

               a[i] := Random (76);

       

       for i := 1 to 30 do

               Write (a[i], ' ');

       

       WriteLn;

       

       for i := 1 to 30 do

               if (a[i] >= 10) and (a[i] <= 35) then begin

                       Inc (c);

                       sum := sum + a[i];

                       Write (a[i], ' ')

               end;

       

       WriteLn;

       WriteLn ('Кол-во чисел из диапазона [10; 35]: ', c);

       Write ('Сумма чисел из диапазона [10; 35]: ', sum);

end.        

4,8(87 оценок)
Ответ:
Molly11111
Molly11111
28.05.2022

Зависит от того, что называть качеством, но скорее уменьшение.

Уменьшение приводит к потере информации: каждый пиксель нового изображения соответствует нескольким пикселям исходного, поэтому не может передать мелкие детали, от чего появляется размытие. В самом экстремальном случае - когда всё сжимается в один пиксель - все детали исходного изображения будут потеряны.

Увеличение приводит к тому, что в новом изображении необходимо задать цвет пикселей, которых не было на исходном рисунке. Если пользоваться наивными алгоритмами - например, просто добавлять пиксели усреднённого цвета - будет возникать размытие чётких границ, при этом градиенты будут переданы неплохо. Современные графические редакторы используют более сложные приёмы, вплоть до использования нейронных сетей для "придумывания" недостающих пикселей, поэтому качество страдает не так сильно.

4,4(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ