Question

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

Answer 1

uses crt;
var a,b,c: integer;
begin
for a:=1 to 9 do
    for b:=1 to 9 do
        for c:=0 to 9 do
        if a+10*a+b+100*a+10*b+c=100*b+10*c+b
           then writeln(a,' ',b,' ', c);
end.

Answer 2

не учла один момент. нужно заменить условие на if (a<>b) and (a<>c) and (b<>c) and
(a+10*a+b+100*a+10*b+c=100*b+10*c+b)