Question

Напишите программу на языка Pascal.

Answer 1

Ответ:

program Hello;

var x, y: Real;

begin

writeln('Введите число x');

read(x);

if x<1 then begin

y:=5*x+2;

end

else begin

y:=sin(x);

   end;

   writeln(y);

end.

Объяснение: