//PascalABC.NET 3.2 сборка 1318
Var
a,b,c,d:real;
begin
readln(a,b,c,d);
if a*b>c*d then writeln((a+b+c+d)/4) else writeln(power(a*b*c*d,1/4));
end.
Пример ввода:
1
2
3
4
Пример вывода:
2.21336383940064
Заполним таблицу по исходным значениям:
А B C D
4 X 6 11
12 B1-2 12 12
По рисунку видно, что все секторы равны, следовательно и в B2 должно быть 12, а это получиться только в том случае, если B1 = 14.
Ответ: 14
Объяснение
каждый раз прибавляется 9
Решение
100,109,118,127.
Просто подставляешь в формулу значения из таблицы.
Например, первая строка:
(0 или 0 или 0) и 1 и (0 или 0 или 0) и 1.
И считаешь: 0 и 1 и 0 и 1 = 0 и 0 и 1 = 0 и 1 = 0
var
x,a, b: integer;
begin
readln (x);
a:= x div 10;
b:= x mod 10;
writeln ('сумма=', a+b);
writeln( ' произведение =', a*b);
end.