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

Akari

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

Akari

var
  Count, i: Integer;
  Summa: LongInt;
begin
  Summa:=0;
  writeln('Четырехзначные числа по условию: ');
  for i:=1000 to 9999 do
    if ((i div 100) mod 10 + (i div 1000) mod 10) =
       ((i mod 10) + (i div 10) mod 10) then
    begin
      write(i, ' ');
      Summa:=Summa + i;
      Count:=Count + 1;
    end;
  writeln;
  writeln('Сумма всех чисел: ', Summa);
  writeln('Кол-во: ', Count);
end.


Akari

Спасибо большое!