Viết chương trình nhập vào từ bàn phím số thực X.
a/ In ra số nguyên lớn nhất nhỏ hơn X.
b/ In ra số nguyên nhỏ nhất lớn hơn X
Viết chương trình nhập vào từ bàn phím số thực X.
a/ In ra số nguyên lớn nhất nhỏ hơn X.
b/ In ra số nguyên nhỏ nhất lớn hơn X
program so_nguyen;
uses crt;
var x:real;
n:integer;
begin
clrscr;
write(‘Nhap so thuc x: ‘); readln(x);
n:=trunc(x);
if n>=x then n:=n-1;
writeln(‘a. ‘,n);
n:=trunc(x);
if n<=x then n:=n+1;
write(‘b. ‘,n);
readln;
end.
program so_nguyen;
begin
clrscr;
write(‘Nhap so thuc x: ‘); readln(x);
if n>=x then n:=n-1;
writeln(‘a. ‘,n);
n:=trunc(x);
if n<=x then n:=n+1;
write(‘b. ‘,n);
readln;
end.