Cho số nguyên dương n. Hãy lập trình tìm số chính phương gần n nhất (0<n<=10^9) VD SCP.INP SCP.OUT 17 16 28 25 PASCAL GIÚP VỚI

1 câu trả lời

uses crt;

var n : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('So chinh phuong gan nhat = ', sqr(trunc(sqrt(n))));

readln

end.