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

Question

Информатика

Людвига

23 июня, 14:06

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

+2

Ответы (1)

Знаете ответ?

Муриха · 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.