Question

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

Answer 1

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.

Answer 2

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

Answer 3

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

Answer 4

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.

Answer 5

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

Answer 6

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