Регистрация
Licona
05.06.2022 10:41
Информатика
Есть ответ 👍

написать программу решающую эту задачу в pascalABC. Заранее

225
293
Посмотреть ответы 2

Ответы на вопрос:

Оксана0990
Оксана0990
4,6(31 оценок)

pascalABC

Объяснение:

var x, y: real;

begin

 Write('Введите значение аргумента x = '); ReadLn(x);

 if x < 1 then y := exp(1) / tan(2.9 + 3 * x)

 else if x > 6 then y := sin(3 * x) + ln(x + 0.3)/ln(10)

 else if (x >= 2) and (x <= 4) then y := 0.6 * ln(abs(5 - sqr(x)))

 else begin WriteLn('Аргумент вне диапазона!'); exit; end;

 WriteLn('y(', x, ') = ', y:1:3);

end.

alieismailova1
alieismailova1
4,7(96 оценок)
1. 10 байт
2. 5120 байт
3. 2 килобайта
4. 1 бит > 1 байт > 1 мб > 1 гб
5. 48 бит &lt 8 байт

Популярно: Информатика