Задать вопрос
21 апреля, 06:57

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

+2
Ответы (1)
  1. 21 апреля, 09:49
    0
    var

    a, b, c: byte;

    begin

    for a : = 0 to 9 do

    for b : = 0 to 9 do

    for c : = 0 to 9 do

    if (a + Single. Parse (a. ToString () + b. ToString ()) + Single. Parse (a. ToString () + b. ToString () + c. ToString ()) =

    Single. Parse (b. ToString () + c. ToString () + b. ToString ())) then

    begin

    WriteLn (String. Format ('{0} + {0}{1} + {0}{1}{2} = {1}{2}{1} | a = {0}; b = {1}; c = {2}', a. ToString (), b. ToString (), c. ToString ())) ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите Решить ребус A+AB+ABC=BCB в паскале ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы