Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program trassa_E96;
- const
- e96: array[1..96] of real = (1, 1.02, 1.05, 1.07,
- 1.1, 1.13, 1.15, 1.19,
- 1.21, 1.24, 1.27, 1.3,
- 1.33, 1.37, 1.4, 1.43,
- 1.47, 1.5, 1.54, 1.58,
- 1.62, 1.65, 1.69, 1.74,
- 1.78, 1.82, 1.87, 1.91,
- 1.96, 2, 2.05, 2.1,
- 2.15, 2.21, 2.26, 2.32,
- 2.37, 2.43, 2.49, 2.55,
- 2.61, 2.67, 2.74, 2.8,
- 2.87, 2.94, 3.01, 3.09,
- 3.16, 3.24, 3.32, 3.4,
- 3.48, 3.57, 3.65, 3.74,
- 3.83, 3.92, 4.02, 4.12,
- 4.22, 4.32, 4.42, 4.53,
- 4.64, 4.75, 4.87, 4.99,
- 5.11, 5.23, 5.36, 5.49,
- 5.62, 5.76, 5.9, 6.04,
- 6.19, 6.34, 6.49, 6.65,
- 6.81, 6.98, 7.15, 7.32,
- 7.5, 7.68, 7.87, 8.06,
- 8.25, 8.45, 8.66, 8.87,
- 9.09, 9.31, 9.53, 9.76);
- var
- r1, r2: real;
- i, j: integer;
- begin
- writeln('Pognal!');
- for i:=1 to 96 do begin
- r1:=e96[i];
- for j:=1 to 96 do begin
- r2:=e96[j];
- if r1 / r2 = 4.87 then
- writeln(r1:1:2, ' ΠΈ ', r2:1:2); end; end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement