Advertisement
Dennnhhhickk

Untitled

Nov 27th, 2016
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 100000;
  10.  
  11. var
  12. n, i, j: integer;
  13. a: array [1..MAXIN] of integer;
  14.  
  15. function min(a, b: integer): integer;
  16. begin
  17. if (a < b) then
  18. min := a
  19. else
  20. min := b;
  21. end;
  22.  
  23. begin
  24. readln(n);
  25.  
  26. for i := 1 to n do
  27. a[i] := MAXINT - 100;
  28.  
  29. a[1] := 1;
  30. for i := 2 to n do
  31. begin
  32. for j := 1 to i - 1 do
  33. if (min(a[j] * 2, min(a[j] * 3, a[j] * 5)) > a[i - 1]) then
  34. begin
  35. a[i] := (min(a[j] * 2, min(a[j] * 3, a[j] * 5)));
  36. end;
  37. end;
  38.  
  39. for i := 1 to n do
  40. writeln(a[i]);
  41. readln;
  42. readln;
  43. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement