помогите,пожалуйста! очень надо!

Вычислить значение функции ( как это будет по программе Pascal) - рисунок вложен!

2

Ответы и объяснения

2013-03-12T21:07:16+04:00

Program Funct1;

Uses Crt;

var x,y:real;

begin

     clrscr;

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

     readln(x);

     if (x<=3) then y:= x-8;

     if (x>3)   then y:=(x*x)+5; 

 

  writeln('y=',y);

  readkey;

end.

 

 

 

 

 

  

 

 

 

 

 

 

 

 

 

 

2013-03-13T02:56:31+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var
    x, y: real;

begin
    read(x);
    if (x > 3) then
        y := (x * x) + 5
    else
        y := x - 8;
    writeln('y = ', y);
end.