Войдите в текстовый редактор. Ознакомьтесь со стандартным окном редактора (строка главного меню и её команды, панель инструментов и её кнопки, служебные кнопки, функциональные клавиши).
Установите поля документа: верхнее – 2 см, нижнее – 1,5 см, левое – 2,5 см, правое – 1 см ( ).
Введите предложенный текст ( ).
Сохраните текст под своим оригинальным именем ( ).
Х= t*n*i*k, где t- время (с.), n- частота дискретизации (Гц), i- глубина кодирования (бит), k- количество каналов записи. Так как запись моно, количество каналов k=1. Получаем:
Program z; var x:array[1..3] of integer; s,min,i_min,i:integer; begin min:=37; {начальное значение минимальной суммы выбрать больше самого большого из 4х-значных чисел 9999, т.е. 9+9+9+9=36} for i:=1 to 3 do begin readln(x[i]); {ввести очередное число} s:=x[1] mod 10 + x[i] div 10 mod 10 + x[i] div 100 mod 10 + x[i] div 1000; {считаем сумму цифр} if s<min then begin i_min:=i; min:=s; end; {если сумма меньше текущего значения минимума, то считать эту сумму минимальной и запомнить в i_min номер текущего числа} end; writeln(x[i_min]); {вывести число с номером i_min как число с минимальной суммой его цифр} end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку