Question

Запиши программу на языке Паскаль для:y= {0,если x≤0{x,если 0<x≤1 (y:3:0){x2,если x>1Запусти программу и введи значение x=18.Число выведенное на экран:[ ]срочно пожалуйста​ Смотреть ответ tolkuevgg tolkuevgg Ответ: program z1; var  x: real; begin  writeln('x=');  readln(x);  begin    if x <= 0 then      writeln('y=0', ';') end;  begin    if 0 < x then      writeln('')    else if x <= 1 then      writeln('') end;  begin    if x > 1 then      writeln('y= ', sqr(x));  end; end. После ввода числа 18 на экране выводится число 324

Answer 1

Похоже, в предоставленной программе есть ошибки. Я могу предложить вам исправленную версию программы на языке Паскаль для заданного условия:

pascalCopy code
program z1;
var
  x: real;
begin
  writeln('Введите значение x=');
  readln(x);
  
  if x <= 0 then
    writeln('y=0')
  else if (x > 0) and (x <= 1) then
    writeln('y=', x:3:0)
  else
    writeln('y=', x * x:3:0);
end.

Обратите внимание на правильное использование операторов if-else для проверки условий и вывода соответствующего значения y.

После ввода числа 18 на экране будет выведено число 324, так как 18 > 1, и выполнится ветвь else, где значение y будет равно x * x, то есть 18 * 18, что равно 324.