Реализовать функцию, с ветвления g= язык pascal - вопрос №5467791 от danil67896430643 18.02.2023 05:08

Question

Информатика: Реализовать функцию, с ветвления g= язык pascal abc

danil67896430643 · Answer

Если я правильно понял g = sin(2*x) для x>=0 иначе g = 5* x², тогда может получиться такой код:
var x,g:real;
begin
    writeln('Введите х');readln(x);
    if x>0 then g:=sin(2*x) else g:=5*sqr(x);
    writeln(g);
end.