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

@Akari · Регистрация: 24.03.2012

@Ev[G]eN · 24.03.2012, 20:14

Pascal

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 · 24.03.2012, 20:34 **[ТС]**

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

@Akari 1 / 1 / 0 Регистрация: 24.03.2012 Сообщений: 35
		1
	Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму. 24.03.2012, 19:56. Показов 6568. Ответов 2 Метки нет (Все метки) Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму. 0

@Akari 1 / 1 / 0 Регистрация: 24.03.2012 Сообщений: 35
	24.03.2012, 20:34 [ТС]	3
	Спасибо большое! 0

Опции темы

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

Решение