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

Question

Информатика

Златимира

10 октября, 16:19

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

+4

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