Ребята помогите! Решать пыталась, но прога выводит ошибки! Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число А.!

Question

Информатика

Арсеньич

29 марта, 10:11

Ребята помогите! Решать пыталась, но прога выводит ошибки! Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число А.!

+5

Ответы (1)

Знаете ответ?

Даниша · Answer 1

Program Task1;

var

a, b, c, d, i: integer;

begin

for i: = 1000 to 9999 do

begin

a : = i mod 10;

b : = i div 10 mod 10;

c : = i div 100 mod 10;

d : = i div 1000 mod 10;

if (a + d = b + c) then

writeln (i) ;

end;

end.