ПАСКАЛЬ: Найти все четырехзначные числа у которых сумма крайних цифр равна сумме внутренних цифр.
Ответы на вопрос
Ответил AnonimusPro
0
//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.
//Версия 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.
Новые вопросы