Напишите на паскале (АВС). Задание: Среди всех четырехзначных натуральных чисел вывести на экран "особо счастливые", у которых сумма цифр в четных разрядах равна сумме цифр в нечетных.

Question

Информатика

Настяха

27 апреля, 18:39

Напишите на паскале (АВС). Задание: Среди всех четырехзначных натуральных чисел вывести на экран "особо счастливые", у которых сумма цифр в четных разрядах равна сумме цифр в нечетных.

+1

Ответы (1)

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

Фессалоникия · Answer 1

var i, j, k, l:integer;

begin

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

for l:=0 to 9 do

if i+k=j+l then writeln (i*1000+j*100+k*10+l) ;

end.

Результат: 1001

1012

1023

...

9977

9988

9999