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

Question

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

Comments

необходимо на паскале abc, free, turbo, или что-нибудь другое???

---

оно вроде должно получиться примерно одинаково. меньшее округлить вверх, большее просто trunc и пройтись между ними циклом

Answer 1

var

a,b:real;

i,min,max,count:integer;

begin

readln(a,b);

if a 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.

Comments

ввод 4.0 7.5 и все поломается

---

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

---

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

---

var
a,b:real;
i,min,max,count:integer;
begin
readln(a,b);
if (a 0) then
begin
min:=trunc(a)+1;
max:=trunc(b)
end
else if (b 0) then
begin
min:=trunc(b)+1;
max:=trunc(a)
end
else if (abegin
max:=trunc(b);
min:=trunc(a)
end
else if (bbegin
max:=trunc(a);
min:=trunc(b)
end;
for i:=min to max do
count:=count+1;
write(count)
end.

---

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

---

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