Ответ: Спасибо большое! Но это две раздельные функции. Два кода нужно, на том что ты написал, где конец первой?
Ответ: Ааа, прости)) Я просто использовал один икс (один ввод) который для двух задач в одной программе. Сейчас переделаю как две отдельные задачи
Ответ: #1: var x: integer;t,y: real;begin writeln(‘x = ‘); readln(x); t := x — (exp(ln(x)*3))/6 + exp(ln(10)*x) — 7.3; writeln(‘t = ‘,t:0:5);end.#2:var x: integer;t,y: real;beginwriteln(‘x = ‘);readln(x);beginif x <= 0 thenbeginy := 17.9 + exp(ln(x)*2);end;if (0 < x) and (x <= 1) thenbeginy := sqrt(x + 2);end;if x > 1 thenbeginy := ln(x — 1);end;writeln(‘y = ‘,y:0:5);end;end.
Ответ:
Вот, держи задачу))
var x: integer;
t,y: real;
begin
writeln(‘x = ‘);
readln(x);
t := x — (exp(ln(x)*3))/6 + exp(ln(10)*x) — 7.3;
writeln(‘t = ‘,t:0:5);
begin
if x <= 0 then
begin
y := 17.9 + exp(ln(x)*2);
end;
if (0 < x) and (x <= 1) then
begin
y := sqrt(x + 2);
end;
if x > 1 then
begin
y := ln(x — 1);
end;
writeln(‘y = ‘,y:0:5);
end;
end.