Пусть первые две цифры равны a, вторые две равны b (1 ≤ a ≤ 5 и 0 ≤ b ≤ 5). Тогда искомое число - . Переведем его в десятичную систему счисления - Если число - квадрат, то, так как делится на 7, то оно делится на ⇒ делится на 7. Пусть a = 1. Тогда b тоже 1. a не равно b ⇒ противоречие. Пусть a = 2. Тогда b = 3. Проверяем: . 1029 - не квадрат ⇒ не подходит. Пусть a = 3. Тогда b = 5. Проверяем: . 2303 - не квадрат ⇒ не подходит. Пусть a = 4. Тогда b = 5. Проверяем: . 4067 - не квадрат ⇒ не подходит. Пусть a = 5. Тогда b = 3. Проверяем: . 6321 - не квадрат ⇒ не подходит. Таким образом, получаем, что нет ни одного числа, которое удовлетворяет всем подсказкам.
var a,b,c:integer; begin read(a,b,c); if (a > b) and (a > c) then write(a) else if (b > a) and (b > c) then write(b) else write(c); end. В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку: Procedure btn1Click; var a, b, c, max: integer; begin a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты) b:= StrToInt(edt2.Text); c:= StrToInt(edt2.Text); if (a > b) and (a > c) then max:= a; else if (b > a) and (b > c) then max:= b; else max:= c; edt4.Text:= 'Максимальное число' + max; //или ShowMessage(Максимальное число' + max); end.