Согласно определения родственными системами счисления называются такие основания которых являются степенями одного числа, тут это выполняется
Var a:integer;
i,k:integer;
begin
write('Введите четырехзначное число: ');
readln(a);
if ((a mod 10)+(a div 10) mod 10)=(a div 1000 + (a div 100) mod 10) then
writeln('Счастливый')
else writeln('Не счастливый');
end.
Тест №1
Введите четырехзначное число: 2341
Счастливый
Тест №2
Введите четырехзначное число: 3145
Не счастливый
Var
s:string;
i,k:integer;
nc:boolean;
begin
readln(s);
for i:=1 to length(s) do
begin
if ( (i=1) or (s[i-1]=' ') ) and (s[i]<>' ') then
nc:=true;
if (nc=true) and ( (s[i]=' ') or (i=length(s)) then
begin
nc:=false;
inc(k);
end;
end;
writeln(k);
<span>end. </span>
Ну кодирование-декодирование!?