program pervoe; var a,b,c,c1,d,max:integer; begin readln(a); b:=a div 100 ; c:= a mod 10; c1:= a mod 100; d:= c1 div 10; if(b > c) then max:= b else max:= c; if (max < d) then max := d; writeln(max); readln; end. 2)program vtoroe; var a,b,c,c1,d,pro:integer; begin readln(a); b:=a div 100 ; c:= a mod 10; c1:= a mod 100; d:= c1 div 10; pro:= b * c * d ; if (pro > 99) and (pro < 1000) then writeln('Yes'); readln; end. 3)program trete; var a,b,c,d,e,f,g,j,sum1,sum2:integer; begin readln(a); b:=a div 1000 ;{1} c:=a mod 10; {4} e:=a mod 1000; {234} f:=e div 100; {2} g:=e mod 100;{34} j:=g div 10; {3} sum1:= b + f ; sum2:= j + c; if (sum1 = sum2) then writeln('Yes') else writeln('NO'); readln; end.
21 = 2q + 1
15 = q + 5
3q + 6 = (2q + 1) + (q + 5) = 3q + 6 - тождество!
Тогда такое равенство можно записать в любой системе счисления, в которой есть цифра 6, т.е. основание системы счисления q >=7
2) 100 = q^2
33 = 3q + 3
22 = 2q + 2
16 = q + 6
5 = 5
q^2 = (3q + 3) + (2q + 2) + (q + 6) + 5
q^2 = 6q + 16
q^2 - 6q - 16 = 0
q1 = 8; q2 = -2
В системе с основанием -2 не может быть троек, поэтому ответ q = 8
3) 100 = q^2
1000 = q^3
По условию 2q^2 = q^3, откуда q = 2
4) Да, может, например, в системе счисления с основанием 2.
var a,b,c,c1,d,max:integer;
begin
readln(a);
b:=a div 100 ;
c:= a mod 10;
c1:= a mod 100;
d:= c1 div 10;
if(b > c) then max:= b
else max:= c;
if (max < d) then max := d; writeln(max);
readln;
end.
2)program vtoroe;
var a,b,c,c1,d,pro:integer;
begin
readln(a);
b:=a div 100 ;
c:= a mod 10;
c1:= a mod 100;
d:= c1 div 10;
pro:= b * c * d ;
if (pro > 99) and (pro < 1000) then writeln('Yes');
readln;
end.
3)program trete;
var a,b,c,d,e,f,g,j,sum1,sum2:integer;
begin
readln(a);
b:=a div 1000 ;{1}
c:=a mod 10; {4}
e:=a mod 1000; {234}
f:=e div 100; {2}
g:=e mod 100;{34}
j:=g div 10; {3}
sum1:= b + f ;
sum2:= j + c;
if (sum1 = sum2) then writeln('Yes')
else writeln('NO');
readln;
end.