Вывести все четырехзначные числа у которых сумма первых двух цифр равна сумме вторых двух цифр. - Free Pascal

5.Вывести все четырехзначные числа у которых сумма первых двух цифр равна сумме вторых двух цифр.

Листинг программы

For i:=1000 to 9999 do
Begin
  a:=i div 100;
  b:=i mod 100;
  If (a div 10)+(a mod 10)=(b div 10)+(b mod 10) then Writeln(i);
End;

Объяснение кода листинга программы

В коде используется цикл for с переменной i от 1000 до 9999.
Внутри цикла происходит деление числа i на 100 и сохранение результата в переменную a.
Остаток от деления числа i на 100 сохраняется в переменную b.
Затем выполняется проверка условия: сумма цифр a должна быть равна сумме цифр b.
Если условие выполняется, то число i выводится на экран с помощью функции Writeln.
Цикл выполняется до тех пор, пока значение переменной i не станет меньше 1000.

Оцени полезность:

5 голосов , оценка 4 из 5

Похожие ответы