A-длина, b-ширина
var
a,b,x: real;
begin
readln(a,b);
if a>b then x:=a*b
else x:=2*(a+b);
writeln(x);
end.
Так здесь все легко если n четное то победит первый при любой игре если n нечетное то победит второй
может ты задачу не до конца дослушал
Program Algorithm;
uses crt;
var result, a:real;
begin
for a:= 0 to 10.5 do
begin
result:=2*(Pow (a),5)*3*a*a-1/7*a+12;
a:=a+1.5;
writeline ("Your answer is ", result);
end;
end.
Как-то так, возможно не надо ставить begin/end в цикле for, потому что я уже не помню когда они нужны.
Обозначим основание системы счисления за х, и подставим х в формулу перевода в десятичную СС:
100(х)=1*х^2+0*x^1+0*x^0=x^2(10)
14(х)=1*х^1+4*x^0=x+4(10)
42(х)=4*х^1+2*x^0=4x+2(10)
т.к.
14(х)+42(х)=100(х)
то и в 10-чной СС это равенство будет верным:
x+4+4x+2=x^2
x^2-5x-6=0
Решаем обычное квадратное уравнение и находим
х1=6
х2=-1
Нам подходит только один корень х=6
Ответ: Эти числа указаны в СС с основанием 6
---------------------------------------
Можно решить и другим методом :
Исходя из набора используемых чисел делаем вывод, что основание СС >4.
Попробуем сложить числа 14 и 42 в их неизвестной СС так, чтобы в результате получилось 100
1 4
+ 4 2
------
1 0 0
Мы видим, что 4 и 2 в сумме дают 0. Это возможно только если следующий разряд состоит из 6 единиц, а значит СС имеет основание 6.
Ответ: 6