Nhập vào một số thực n,in ra số a và số x biết: a là số nhỏ nhất để x là số nguyên gần n nhất ví dụ:n = 1.2 in ra a = 5 và x = 6 n = 3.125 in ra a = 8 và x = 25
1 câu trả lời
uses crt;
var n, x : real; a : integer;
begin
clrscr;
write('nhap so thuc :'); readln(n);
a := 1;
x := n * a;
while trunc(x) <> x do
begin
a := a + 1;
x := n * a;
end;
writeln('a = ', a);
writeln('x = ', (n * a):1:0);
readln
end.
Câu hỏi trong lớp
Xem thêm
