Задание:
составить Цикл с параметром 1. Вывести на экран все четырехзначные числа, сумма двух старшихцифр которых равна сумме двух младших цифр.
Решение:
Var a1, a2, q1, q2, i: integer; begin for i: =1000 to 9999 do begin a1: =i div 1000; a2: =i mod 1000 div 100; q1: =i mod 100 div 10; q2: =i mod 10; if (a1+a2 > q1+q2) then writeln (i); end; end. Только выполняться сие чудо будет секунд 30
Знаете другой ответ?