Question

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

Answer 1

// PascalABC.NET

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

begin

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

end.

Пример:

1-> 1.142

2-> 10.7854

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

Answer 2

PascalABC.NET 3.4

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

Answer 3

Для решения этой задачи в Pascal можно использовать следующий код. Вам понадобятся две переменные типа Real (вещественные числа) для хранения входных чисел, а затем, используя функцию Trunc, можно найти количество целых чисел на отрезке между ними.

pascalCopy code
program CountIntegersBetween;
var
  num1, num2: Real;
  countIntegers: Integer;
begin
  // Ввод вещественных чисел
  writeln('Введите первое вещественное число: ');
  readln(num1);
  writeln('Введите второе вещественное число: ');
  readln(num2);

  // Находим количество целых чисел на отрезке между ними
  countIntegers := Abs(Trunc(num2) - Trunc(num1)) - 1;

  // Вывод результата
  writeln('Количество целых чисел на отрезке между ', num1:0:2, ' и ', num2:0:2, ' равно ', countIntegers);

  readln;
end.

Программа запрашивает ввод двух вещественных чисел, а затем с помощью функции Trunc находит ближайшие целые числа к этим значениям, а после этого находит количество целых чисел между ними.

Пожалуйста, скопируйте данный код в среду разработки Pascal (например, Free Pascal) и запустите программу.