Помогите написать программу в Pascal.Необходимо написать программку для нахождения значения

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (a,c,x):=ReadReal3('Введите a,c,x:');
var y:=(2*a-a/23)/Sqrt(1+a/4);
var z:=(2*c-4*y+Абс(a-y))/(Exp(x)+2*a*y*a);
Writeln('Y=',y,', Z=',z)
end.

Пример
Введите a,c,x: 3.5 -0.167 3.11
Y=5.00094509026456, Z=-0.129959221453275

Печонкин Владислав · Answer 2 · 2019-03-08 07:46:20+3:00

Печонкин Владислав 2019-03-08 07:46:20

Program ex1;uses crt;var y, x, z, a, c : real;begin readln(a, c); y:= (2 * a - (a / 23)) / (sqrt(1 + (a / 4))); z:= (2 * c - 4 * y + abs(a - y)) / (exp(1) * x + 2 * a * y * a); writeln(y); writeln(z);end.

Рагге Елизавета 2019-03-08 07:48:18

Напиши пожалуйста свою версию, буду очень признателен

Степан Набиееев 2019-03-08 07:53:46

Быстрее всего в ступени x

Ульяна 2019-03-08 07:56:17

У нас так учительница пишет

О проекте

Помогите написать программу в Pascal.Необходимо написать программку для нахождения значения

Добро пожаловать!