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.

Answer 2

Конечно, я могу помочь вам найти такие числа. Однако, у вас не указано, какое значение должно иметь число А. Если вы можете предоставить значение для числа А, я смогу выполнить поиск и предоставить вам все четырехзначные числа, удовлетворяющие указанным условиям и делящиеся на число А.

Пожалуйста, укажите значение для числа А, чтобы я мог продолжить поиск.