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

Question

Информатика

Анетт

7 июля, 12:47

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

+5

Ответы (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.