давно
Старший Модератор
31795
6196
10.02.2017, 23:20
общий
это ответ
Здравствуйте, nikita9581!
[code lang=pascal h=100]var
a,b,x:real;
begin
write('A:=');readln(a);
write('B:=');readln(b);
write('X:=');readln(x);
if x>2 then writeln('y:=',exp(x)+x*x)
else writeln('y:=',(a+x*x)/(b+ln(abs(x)+1)));
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.