Найти все четырехзначные числа, у которых сумма всех цифр равна 10

@kLeimor · Регистрация: 15.05.2012

Author24 — интернет-сервис помощи студентам

Помогите разобраться буду крайне признателен вам

@UserABC · 28.05.2012, 22:27

Pascal

uses crt;
var i, N, SumN, k : integer;
begin
  for i:=1000 to 9999 do
  begin
    SumN := 0;
    N := i;
    repeat
      k := N mod 10;
      N := N div 10;
      SumN := SumN + k;
    until N = 0;
    if (SumN=10) then Write(' ',i);
 end;
end.

@kLeimor 5 / 5 / 5 Регистрация: 15.05.2012 Сообщений: 66
		1
	Найти все четырехзначные числа, у которых сумма всех цифр равна 10 28.05.2012, 19:24. Показов 2211. Ответов 1 Метки нет (Все метки) Помогите разобраться буду крайне признателен вам 0

	28.05.2012, 22:27

Найти все четырехзначные числа, у которых сумма всех цифр равна 10

Решение