Программа, которая выводит на экран все четырехзначные числа, сумма цифр которых равна 7

[vitaaly]

help!
Нужно составить в паскале программу, которая выводит на экран все четырехзначные числа, сумма цифр которых равна 7 ???

[danekne]

program seven
var i,j:integer;
s:string;
begin
for i:=1000 to 9999 do
begin
sum = 0;
s := IntToStr(i);
for j:=1 to 4 do
sum = sum+s[j];
if sum=7 then
writeln(inttostr(i));
end;
end.

Как то так вроде
end;

[Serge_Bliznykov]

нет, не так. коды символов цифр НЕ РАВНЫ самим цифрам.
я уже молчу о том, что это решение использует функцию IntToStr, которой в стандартном Паскале нет


думаю, что предполагалось такое решение:

var i, N, SumN, OneDigit : integer;
begin
  for i:=1000 to 9999 do
  begin
    SumN := 0;
    N := i;
    { суммуруем число N по цифрам (в обратном порядке) }
    repeat
      OneDigit := N mod 10;
      N := N div 10;
      SumN := SumN + OneDigit;
    until N = 0;
    if (SumN=7) then WriteLn(i);
    Readln
end.

p.s. очевидно, что черёхзначных чисел с суммой цифр равно 7 больших, чем 7000 нет и быть не может,
поэтому цикл в данном случае можно "крутить" от 1000 до 7000...

[Plague]

тут цикл можно крутить от 1006 до 7000 с шагом 9 программа будет в 9 раз быстрее работать)))