Помогите написать программу в паскале с решением ребус A+AB+ABC=BCB

Question

Информатика

Всеволодушка

27 марта, 02:19

Помогите написать программу в паскале с решением ребус A+AB+ABC=BCB

+1

Ответы (1)

Знаете ответ на вопрос?

Марк · Answer 1

Число АВС может принимать значение от 123 до 987

Исходя из этого пишем программу

var

Ast, Bst, Cst, s:string;

i, A, AB, ABC, BCB:integer;

f:boolean; {Признак того, что решение найдено}

begin

for i:=123 to 987 do

begin

if f=false then

begin

s:=IntToStr (i) ;

Ast:=s[1]; Bst:=s[2]; Cst:=s[3];

A:=StrToInt (Ast) ; AB:=StrToInt (Ast+Bst) ; ABC:=StrToInt (Ast+Bst+Cst) ; BCB:=StrToInt (Bst+Cst+Bst) ;

if A+AB+ABC=BCB then f:=true;

if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then f:=false; {цифры не должны повторяться}

end

end;

if f=true then writeln (A,'+', AB,'+', ABC,'=', BCB) else writeln ('Решения нет')

end.