Question

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

Answer 1

var

 a,n,i,count:integer;

begin

 readln(a); count:=1;

 for i:=1001 to 9999 do

   begin

     if (i div 1000 + i mod 10 = i div 100 mod 10 + i mod 100 div 10)

       and (i mod a = 0)  then

         begin

           writeln(count,': ',i);

           inc(count);

         end;

   end;

 dec(count);

 writeln(count);

end.