Помогите решить ребус на паскале, пожалуйста: A+AB+ABC=BCB
Помогите решить ребус на паскале, пожалуйста: A+AB+ABC=BCB
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы