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

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

Задать свой вопрос
2 ответа
PascalABC.NET 3.4

begin
  // Если a и b целые, они также врубаются в подсчет
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if agt;b then Swap(a,b); // а - левая границв
  Writeln('Целых чисел в промежутке: ',Trunc(b)-Trunc(a)+1);
end.

// PascalABC.NET

// Версия 3.3.5 сборка 1662 (29.04.2018)


begin

Println(Range(ReadReal('1-gt;').Trunc + 1, ReadReal('2-gt;').Trunc).Count,'целых чисел.');

end.


Пример:

1-gt; 1.142

2-gt; 10.7854

9 целых чисел.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт