1) Ввести натуральное число и определить,верно ли, что сумма его цифр равна 10.(от 10 до 99) 2) Найти все трёхзначные числа,сумма цифр которых равна данному целому числу.
program ololo; var x,sum:integer; begin read(x); sum:=0; while (x>0) do begin sum:=sum+x mod 10; x:=x div 10; end; if (sum = 10) then write('Yes') else write("No'); end.
2
Code
program rmq; var i,j,k,x:integer; begin read(x); for i := 1 to 9 do for j := 0 to 9 do for k := 0 to 9 do if (i+j+k = x) then writeln(i,j,k); end.
пишу на с++, delphi, c# (нудные задачи небезвозмедно) ps Если помог - щелкни +, и вам хорошо и мне приятно