Advertisement
Guest User

Untitled

a guest
Dec 13th, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.25 KB | None | 0 0
  1. program trassa_E96;
  2. const
  3. e96: array[1..96] of real = (1, 1.02, 1.05, 1.07,
  4. 1.1, 1.13, 1.15, 1.19,
  5. 1.21, 1.24, 1.27, 1.3,
  6. 1.33, 1.37, 1.4, 1.43,
  7. 1.47, 1.5, 1.54, 1.58,
  8. 1.62, 1.65, 1.69, 1.74,
  9. 1.78, 1.82, 1.87, 1.91,
  10. 1.96, 2, 2.05, 2.1,
  11. 2.15, 2.21, 2.26, 2.32,
  12. 2.37, 2.43, 2.49, 2.55,
  13. 2.61, 2.67, 2.74, 2.8,
  14. 2.87, 2.94, 3.01, 3.09,
  15. 3.16, 3.24, 3.32, 3.4,
  16. 3.48, 3.57, 3.65, 3.74,
  17. 3.83, 3.92, 4.02, 4.12,
  18. 4.22, 4.32, 4.42, 4.53,
  19. 4.64, 4.75, 4.87, 4.99,
  20. 5.11, 5.23, 5.36, 5.49,
  21. 5.62, 5.76, 5.9, 6.04,
  22. 6.19, 6.34, 6.49, 6.65,
  23. 6.81, 6.98, 7.15, 7.32,
  24. 7.5, 7.68, 7.87, 8.06,
  25. 8.25, 8.45, 8.66, 8.87,
  26. 9.09, 9.31, 9.53, 9.76);
  27. var
  28. r1, r2: real;
  29. i, j: integer;
  30.  
  31. begin
  32. writeln('Pognal!');
  33. for i:=1 to 96 do begin
  34. r1:=e96[i];
  35. for j:=1 to 96 do begin
  36. r2:=e96[j];
  37. if r1 / r2 = 4.87 then
  38. writeln(r1:1:2, ' ΠΈ ', r2:1:2); end; end;
  39. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement