Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Var n, k, S: Integer;
- i, j: Real;
- Begin
- ReadLn(n, k);
- i := Exp((n - 1)*Ln(10));
- j := Exp(n*Ln(10)) - 1;
- while (i <= j) do
- Begin
- n := Trunc(i);
- S := 0;
- while (n <> 0) do
- Begin
- S := S + n mod 10;
- n := n div 10;
- End;
- if (S = k) then WriteLn(i);
- i := i + 1;
- End;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement