АА
Александра Азеева
Вот пример кода 4-ой задачи в "Pascal ABC":
program Desicion;
var
x, y, z, s: real;
begin
write('Введите значение x: ');
readln(x);
if x < -2 then
y := 2 * x
else if x > 2 then
y := power(sqr(cos(x)) + power(sin(power(x, 3)), 4), 0.25)
else
y := sin(power(x, 3)) + ln(abs(x));
if x < 0 then
z := sqr(sin(x))
else
z := exp(- sqr(x + 3));
s := ln(abs(y)) + abs(ln(z));
write('Значение s: ', s:8:3);
readln;
end.