Решить, используя подпрограммы
10-11 класс
|
K=MIN(23,a,d) + MIN(67,d,b)
var
a, d, b: real;
function min(a, b: real): real;
begin
if a < b then min := a else min := b;
end;
begin
read(a, b, d);
writeln('K = ', min(23, min(a, d)) + min(67, min(d, b)));
end.
Другие вопросы из категории
к
3.составить прогу которая находит индекс последней запятой в введенном тексте
1 3 5 7
1 3 5 7
1 3 5 7
1 3 5 7
2)Массив 4*4
0010
0100
0000
1100
Подсчитать количество нулей и единиц
3)Случайным образом вывести массив 5*5 (50)
A[I,j]:= random (50);
Сумму элементов массива
Читайте также
однозначно декодировать двоичную последовательность, появляющуюся на приёмной стороне канала связи. Использовали код: А–1, Б–000, В–001, Г–011. Укажите, каким кодовым словом должна быть закодирована буква Д. Длина этого кодового слова должна быть наименьшей из всех возможных. Код должен удовлетворять свойству однозначного декодирования. 1) 00 2) 01 3)11 4) 010
Написать программу, которая использует подпрограммы и выведит на экран наименьшее расстояние между двумя точками.
закодировать букву Г, чтобы длина кода была минимальной и допускалось однозначное разбиение кодированного сообщения на буквы?1) 1 2) 11 3) 01 4) 010
символом БАВГБА и записать результат в восьмеричной системе счисления, то получится ?