Program Min5
var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.
(сумма любых двух цифр числа всегда ≤ 18)
1414 - суммы цифр могут быть только 14 и 14
148 - только 14 и 8
145 - только 14 и 5
214 не может быть такого результата, так как суммы цифр могут быть только 2 и 14, но записаны они в порядке возрастания.
515 - 5 и 15 - записаны в порядке возрастания, не соответ. условию.
814 - 8 и 14 - не соотв. условию
114 - 11 и 4 (но может быть и 1 и 14) , в принципе - такой результат возможен
ответ 5
Var
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');<span>
</span> <span>Readln(A);
</span>
Writeln('Введите цену остальных газет:');<span>
</span> <span>Readln(X);
</span> if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.
110 011 в 2 = 63 в 8, 51 в 10 , 33 в 16
412 в 8 = 100001010 в 2 , 266 в 10, 10A в 16
914 в 10, 11100100102 в 2, 1622 в 8, 0392 в 16
E3 в 15, 11100011 , 227 в 10 в , 343 в 8