Всі умови | Умова: Дано x, y, z. Обчислити а, b, якщо...
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №11)
program pr11_d;
uses
math;
var
a, b, x, y, z : real;
begin
//Slava Urkaini
writeln('vvedit x');
readln(x);
writeln('vvedit y');
readln(y);
writeln('vvedit z');
readln(z);
a := 2*cos(x-pi/6)/(1/2 + sqr(sin(y)));
b := 1 + sqr(z) / (3 + sqr(z) / 5);
write('a=');
writeln(a:10:4);
write('b=');
writeln(b:10:4);
readln;
//hutin pui
end.