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

в паскале

Question

Информатика

Савин

13 сентября, 11:51

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

в паскале

+5

Ответы (1)

Знаете ответ на вопрос?

Вероня · Answer 1

Var a, b, c, d, e:integer;

begin

for a:=1000 to 9999 do begin

e:=a;

b: = e mod 10;

e: = e div 10;

c: = e mod 10;

e: = e div 10;

d: = e mod 10;

e: = e div 10;

if (b+d) = (c+e) then writeln (a) ;

end;

end.