Question

ПАСКАЛЬ: Найти все четырехзначные числа у которых сумма крайних цифр равна сумме внутренних цифр.

Answer 1

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var f: string->boolean:=x->(x[1].ToDigit+x[4].ToDigit)=(x[2].ToDigit+x[3].ToDigit);
1000.To(9999).Where(t->f(t.ToString)).Println;
end.

Answer 2

Чтобы найти все четырехзначные числа, у которых сумма крайних цифр равна сумме внутренних цифр, мы можем перебрать все возможные комбинации четырехзначных чисел и проверить условие. Воспользуемся циклом, чтобы перебрать все четырехзначные числа: ``` for i in range(1000, 10000): number = str(i) # проверяем условие ``` Внутри цикла преобразуем число в строку, чтобы можно было обращаться к отдельным цифрам. Затем проверим условие суммы крайних и внутренних цифр: ``` if int(number[0]) + int(number[3]) == int(number[1]) + int(number[2]): print(number) ``` Если сумма левой и правой цифр равна сумме средних двух цифр, то печатаем это число. Полный код будет выглядеть так: ``` for i in range(1000, 10000): number = str(i) if int(number[0]) + int(number[3]) == int(number[1]) + int(number[2]): print(number) ``` Запустив данный код, мы получим все четырехзначные числа, у которых сумма крайних цифр равна сумме внутренних цифр.