Nhập vào một số n dưới dạng số thập phân,in ra số x biết: x là số mà n nhân với số a mà x là số nguyên nhỏ nhất ví dụ: n = 1,2 in ra số x là 6 vì số a là 5 thay vì 10 (code pascal cho mình nha đg cần gấp:3
1 câu trả lời
uses crt;
var n, x : real;
a : integer;
begin
clrscr;
write('Nhap so thuc n = '); readln(n);
a := 1; x := n * a;
while trunc(x) <> x do
begin
a := a + 1;
x := n * a;
end;
writeln('Gia tri a = ', a);
writeln('Gia tri x = ', (n * a) : 0 : 0);
readln
end.
Câu hỏi trong lớp
Xem thêm
