Question

Составить программу
вычислить значение выражения по формуле (все переменные принимают вещественные значения): Z=корень 1-sina

Answer 1

var
z,a:real;
begin
writeln('Vvedite a');
readln(a);
z:=sqrt(1-sin(a));
writeln('resultat ',z)
end.