Честно говоря, я пытался решить чисто логическим путём, даже вывел некоторые условия существования примера, но в итоге мне надоело, и я написал программу, которая перебирает все возможные варианты до тех пор, пока не получится равенство.
В общем, основание системы: 7
Само равенство: 43050₇ + 4350₇ = 50430₇
Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>
var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;
end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
Get, update, set ну если я правильно понял)
Var
x,y,z:real;
begin
writeln('Введите три числа');
read(x,y,z);
If (x>z) and (x>y) then
writeln('Наибольшее= ',x);
If (y>z) and (y>x) then
writeln('Наибольшее= ',y);
If (z>x) and (z>y) then
writeln('Наибольшее= ',z);
If (z=y) and (y=x) then writeln('Все числа одинаковые') else
begin
If (z=x) then writeln('числа x и z равны');
If (y=x) then writeln('числа x и y равны');
If (z=y) then writeln('числа y и z равны');
end.
end.