Вычислить значения выражений - Turbo Pascal (29007)

Формулировка задачи:

Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

Код к задаче: «Вычислить значения выражений - Turbo Pascal (29007)»

textual
var x, y, z: real;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  write('z = ');
  readln(z);
  writeln('a = ', (cos(x * x + pi / 3) + 3 * y * y - sin(z)) / sqrt(abs(sin(x) + abs(y) + 3)));
  writeln('b = ', 4 - exp(x + y + z) / (x * x + 1));
  readln
end.

13   голосов, оценка 3.615 из 5


СОХРАНИТЬ ССЫЛКУ