//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>
Решение на фото. Суть алгоритма в том, чтобы ввести новые переменные, отвечающие за минимум и максимум в ряду чисел. Логично, что число посередине равно сумме всех чисел минус минимум и максимум, его нужно записывать до остальных чисел.
У лукоморья дуб зеленый;
Златая цепь на дубе том:
И днем и ночью кот ученый
Все ходит по цепи кругом:
Идет направо – песнь заводит,
Налево - сказку говорит,
Там чудеса: там леший бродит,
Русалка на ветвях сидит…
(А. С. Пушкин)
Купи полу игровой и для учёбы места на 3 ГБ