Реализовать функцию {y=3*x, если x 0; x^2, если - вопрос №546776030200 от ксения1373 18.02.2023 05:08

Question

Информатика: Реализовать функцию {y=3*x, если x 0; x^2, если x =0} if x 0 then y: =3*x else y: =sqr(x); язык pascal abc

ксения1373 · Answer

Program name;var x, a, b: real;beginwriteln ( Введите значение Х );readln (x);a:=3*x;b:=sqr(x);if x 0 then writeln ( y= , a)elseif x =0 then writeln ( y= , b);end....

Реализовать функцию {y=3*x, если x> 0; x^2, если x< =0} if x> 0 then y: =3*x else y: =sqr(x); язык pascal abc

Реализовать функцию {y=3x, если x> 0; x^2, если x< =0} if x> 0 then y: =3x else y: =sqr(x); язык pascal abc