Question

ПОМОГИТЕ написать программу которая выводит число , второе меньше вводимого х . pascal

Answer 1

Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.

Пример:
x = 15
y = 5

Answer 2

Конечно, вот пример программы на Pascal, которая выводит число, второе меньше вводимого x:

program SecondSmallerNumber;

var
  x, secondNumber: Integer;

begin
  // Запрашиваем у пользователя ввод числа
  Write('Введите число x: ');
  Readln(x);
  
  // Запрашиваем у пользователя ввод второго числа
  Write('Введите второе число: ');
  Readln(secondNumber);
  
  // Проверяем, что второе число меньше x
  if secondNumber < x then
    Writeln('Второе число меньше введенного x.')
  else
    Writeln('Второе число больше или равно введенному x.');
  
  // Ждем ввода пользователя перед закрытием программы
  Readln;
end.

Эта программа запрашивает у пользователя ввод числа x, а затем второго числа. Затем она проверяет, что второе число меньше x, и выводит соответствующее сообщение.