Question

Программа в Pascal ABC С клавиатуры вводится вещественное число, если оно из интервала {3,10} то на экран вывести его целую часть иначе десятичную

Answer 1

Var r: real;
begin
 read(r);
 if (r > 3) and (r < 10) then
  write(trunc(r))
 else
  write(r - trunc(r))
end.

Answer 2

Для решения данной задачи в программе на Pascal ABC необходимо выполнить следующие шаги:

1. Запросить у пользователя ввод вещественного числа с клавиатуры. 2. Проверить, находится ли введенное число в интервале от 3 до 10. 3. Если число находится в этом интервале, вывести его целую часть. 4. Если число не находится в интервале от 3 до 10, вывести его десятичную часть.

Вот пример кода, реализующего данную программу:

program Main;
var
  number: real;
begin
  writeln('Введите вещественное число:');
  readln(number);
  
  if (number >= 3) and (number <= 10) then
    writeln('Целая часть числа: ', trunc(number))
  else
    writeln('Десятичная часть числа: ', frac(number));
end.

В данном примере программа запрашивает у пользователя ввод вещественного числа и сохраняет его в переменную `number`. Затем она проверяет, находится ли число в интервале от 3 до 10 с помощью условного оператора `if`. Если число находится в этом интервале, программа выводит его целую часть с помощью функции `trunc()`. Если число не находится в интервале, программа выводит его десятичную часть с помощью функции `frac()`.

Примечание: Обратите внимание, что данная программа написана на языке Pascal ABC. Если вы используете другую среду разработки, такую как Turbo Pascal или Lazarus, возможно, вам потребуется внести некоторые изменения в код.