Question

Помогите, это срочно!!!!!!!!! Даю 35 б Запиши программу на языке Паскаль для: y=1)0,если x ≤ 0 ;2)x,если если 0 < x ≤ 1 ; 3) x"2(икс квадрат),если x >1. (y:3:0) Запусти программу и введи значение x=4. ЧИСЛО ВЫВЕДЕННОЕ НА ЭКРАН ЗАПИШИТЕ!!!!!!!!!!

Answer 1

program HelloWorld;

var x,y: integer;

begin

   

    x:=4;

       

    if (x<=0) then

        y:=0;

 

    if (x>=0) and (x<=1) then

        y:=x;

       

    if (x>1) then

        y:=sqr(x);

 

    write(y);

end.

Answer 2

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

pascalCopy code
program CalculateY;
var
  x, y: real;
begin
  write('Введите значение x: ');
  readln(x);

  if x <= 0 then
    y := 0
  else if (x > 0) and (x <= 1) then
    y := x
  else
    y := x * x;

  writeln('Значение y: ', y);
end.

Когда вы введете значение x=4, программа выведет значение y=16, так как 4 умноженное на само себя равно 16.