Var
a,b,c,d:longint;
begin
readln(a);
b:=a div 100 mod 10;
c:=a div 10 mod 10;
d:=a mod 10;
writeln(b+c+d);
writeln(b×c×d);
writeln(d,c,b);
end.
ну если будит так то:
1 ход. первый берёт 3 яблока второй тоже 3.
2 ход. первый берёт 2 яблока второй 3.
3 ход. первый берёт 3 яблока второй 2.
и последний ход. первый берёт 3 яблока а второй проигрывает.
Раз надо найти индексы, значит это массив
//Pascal
const n = 12;
var a:array[1..n] of real;
min,max:real;
imin,imax,i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to n do begin
readln(a[i]);
if a[i]<min then begin
min:=a[i]; imin:=i;
if a[i]>max then begin
max:=a[i]; imax:=i;
end;
writeln ('Максимальный ',max,'индекс',imax);
writeln ('Минимальный',min,'индекс',imin);
writeln ('Сумма', max+min);
end.
Если правильно понимаю что тут написано
y:=(5 * x * x - sqrt(x)) / x;
1)c
2)b
3)d
4)d
5)a +c
6)b+d
7)b
8)c
9)a
10)a
11)b
12)a+b+c
13)f+g+h