Question

Решите 2 и 3 задание

Answer 1

Ответ:

pascal

Объяснение:

2)

program znaki;

var

 a, b: real;

begin

 Write('Введите A и B через запятую: ');

 ReadLn(a, b);

 if (a * b > 0) then

   WriteLn('Знаки одинаковы')

 else

   WriteLn('Знаки разные')

end.

3)

program funkcia;

var

 x, f: real;

begin

 Write('Введите значение X: ');

 ReadLn(x);

 if (x >= -2) and (x < 2) then

   f := x

 else

   f := 4;

 WriteLn('f(', x, ')=', f)

end.