И еще одна задача, но на вложенный цикл, тоже в паскале.

Вопрос в студию еще раз

делаеш цикл от А до В и в нем ишеш если сумма 3 первых числа = сумме 3 последних то делаеш счетчик и все.

Опять шарп.
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите первое число: ");
int val1 = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите второе число: ");
int val2 = Convert.ToInt32(Console.ReadLine());
int count = 0;
for (int i = val1; i <= val2; i++)
{
int leftSide = i / 1000; // первые три цифры
int RightSide = i - leftSide * 1000; // вторые три цифры
int Num1 = leftSide / 100; // первая цифра
int Num2 = (leftSide - Num1 * 100) / 10;// вторая цифра
int Num3 = leftSide - Num1*100 - Num2*10;// третья цифра
int Num4 = RightSide / 100; // четвертая цифра
int Num5 = (RightSide - Num4 * 100) / 10; // пятая цифра
int Num6 = RightSide - Num4 * 100 - Num5 * 10; // шестая цифра
if (Num1 + Num2 + Num3 == Num4 + Num5 + Num6)
count++;

}
Console.WriteLine("Число счастилвых билетов равно: {0}", count);
}
}

цикл for а в нем через строки считаешь (делаешь счетчик)

var a,b,i,j,s,s13,s36:integer;c:array [1..6] of integer;
begin
writeln('введите границы диапазона');
readln(a);readln(b);s:=0;
for i:=a to b do begin
for j:=1 to 6 do begin
c[j]:=i mod 10; i:=i div 10;end;
s13:=c[1]+c[2]+c[3];s36:=c[4]+c[5]+c[6];
if(s13=s36) then s:=s+1;
end;
write('Число счастливых чисел-',s);end.