Ответы
Ответ дал:
0
var
a, k: integer;
begin
readln(k);
for a := 100 to 999 do
if ((a div 100) + (a mod 100 div 10) + (a mod 10) = k) then
writeln(a);
end.
a, k: integer;
begin
readln(k);
for a := 100 to 999 do
if ((a div 100) + (a mod 100 div 10) + (a mod 10) = k) then
writeln(a);
end.
Вас заинтересует
1 год назад
1 год назад
9 лет назад
9 лет назад