Лови| Код |
PROGRAM Summa;
VAR
First, {Первая цифра числа}
Second, {Вторая цифра числа}
Third : Integer; {Третья цифра числа}
Count : Integer; {Счетчик найденных чисел}
BEGIN
Count:=0;
for Second:=0 to 9 do begin
for First:=1 to Second do begin
Third:=Second-First;
Inc(Count);
{ WriteLn('Число=',First, Second, Third);} {вывод результата в столбик}
Write(First, Second, Third, ' '); {вывод результата в несколько строк}
end;
end;
WriteLn;
WriteLn('Count=',Count);
END.
|
А как работает - надеюсь, разберёшься самостоятельно. |
