Question

Помогите, срочно Составьте программу если число x меньше 72, то найти y=23x+385, иначе вычислить y=25x-979. Программа паскаль

Answer 1

var x,y:integer;

begin

writeln('введите x');

readln(x);

if x<72 then y:=23*x+385 else y:=25*x-979;

writeln('y=',y)

end.

Answer 2

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

pascalCopy code
program CalculateY;
var
  x, y: integer;
begin
  writeln('Введите значение x: ');
  readln(x);
  
  if x < 72 then
    y := 23 * x + 385
  else
    y := 25 * x - 979;
  
  writeln('Значение y равно: ', y);
end.

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