Question

Запишите в паскале у = 0,еслиx≤0x,если0x2(Во второй),если x>1запусти программу и введи значение x=−3.Число выведенное на экран: срочнооЧисло выведенное на экран: срочно!!!!!!!!!!!

Answer 1

Если ввести x = -3, то программа выведет число 0.

Ответ: 0

Сама программа:

var x: integer;

y: real;

begin

   write('Введите x: ');

   readln(x);

   if x <= 0 then

       y := 0;

   if x = 0 then

       y := x;

   if x > 1 then

       y := x * x;

   writeln('y = ', y);

end.

Answer 2

В Паскале код для данной задачи будет выглядеть следующим образом:

pascalCopy code
program Main;
var
  x, y: real;
begin
  writeln('Введите значение x:');
  readln(x);
  
  if x <= 0 then
    y := 0
  else if (x > 0) and (x <= 1) then
    y := x
  else
    y := 2 * x;
  
  writeln('Число выведенное на экран: ', y:0:2);
end.

После запуска программы и ввода значения x = -3, программа выведет следующий результат:

diffCopy code
Введите значение x:
-3
Число выведенное на экран: 0.00

Примечание: Для ввода значения -3, вам необходимо ввести -3 в командной строке и нажать клавишу "Enter".