var
Sum, a, b, c: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
Sum := a + b + c;
if (13 = Sum) then
WriteLn(a,b,c);
end;
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
Sum, a, b, c: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
begin
Sum := a + b + c;
if (13 = Sum) then
WriteLn(a,b,c);
end;
end.