Question

Составить алгоритм и программу вычисления значений функции y={x при x<0; 2x при x≥0; Паскаль.

Answer 1

program test;

var x: integer;

begin

writeln('Введите х');

if x<0 then write (x) else write (2*x);

end.