даны 2 вещественных числа. сколько на отрезке между ними целых чисел паскаль

хотя это зависит от того как понять условие)

можно и переделать

vara,b:real;i,min,max,count:integer;beginreadln(a,b);if (a 0) thenbeginmin:=trunc(a)+1;max:=trunc(b)endelse if (b 0) thenbeginmin:=trunc(b)+1;max:=trunc(a)endelse if (abeginmax:=trunc(b);min:=trunc(a)endelse if (bbeginmax:=trunc(a);min:=trunc(b)end;for i:=min to max docount:=count+1;write(count)end.

код в ширину не влазит

В общем, нужно еще в условии дописать, чтобы дробная часть была больше нуля и если все эти условия не проходит, то просто отсекать дробную часть

var

a,b:real;

i,min,max,count:integer;

begin

readln(a,b);

if a<b then

begin

min:=trunc(a)+1;

max:=trunc(b)

end

else

begin

min:=trunc(b)+1;

max:=trunc(a)

end;

for i:=min to max do

count:=count+1;

write(count)

end.