Question

Nhập vào số thực N. (giúp mik với)

a/ in ra số nguyên lớn nhất không lớn hơn N.

b/ in ra số nguyên nhỏ nhất lớn hơn N.

Ví dụ:

Integer.inp	Integer.out
2.67	2 3

Answer 1

Lời giải:

program hotrotinhoc;

const fi='integer.inp';

fo='integer.out';

var a,b,n: integer;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,n);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

writeln(f,trunc(n));

write(f,trunc(n)+1);

close(f);

BEGIN

ip;

out;

END.