.


- 2


round(x) trunc(x)

round trunc .

round(x) x - :

round(4.2) = 4, round(4.7) = 5, round(4.5)=5,

round(-4.2) = -4, round(-4.7) = -5, round(-4.5) = -5.

trunc(x) ( ) x:

trunc(1.2) = 1, trunc(5.8) = 5, trunc(-1.2) = -1,

trunc(-5.8) = -5, trunc(-6.7) = -6, trunc(8,9) = 8

 

:

trunc(x + 0.5) = round(x), x

0,

trunc(x - 0.5) = round(x), x < 0.

 

, . ? trunc, round .

 

Program Problem8;

uses WinCrt;

var

d, e, k : integer;

begin

writeln(' ');

for d := 1 to 9 do

for e := 1 to 9 do

begin

k := round(sqrt(d*10 + e + e*10 + d));

if k*k = d*10 + e + e*10 + d

then write(d*10 + e, ' ')

end

end.

7

[m; n], ( ).

37. , 4 , 1680.

38. , , , .