Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>
Смысл этой задачи проверить в том , что является ли сумма предыдущих чисел , заданному числу . Вот и вся программа !
X = 3
y = 4*x = 4*3 =12
y = y+6 = 12+6 = 18
y = y*x = 18*3 = 54
y = y+7 = 54+7 = 61
y = y*x = 61*3 = 183
y = y+8 = 183+8 = 191
Переводить в десятичную и решать в ней, результат потом переводить обратно