Составить Паскаль-программу, содержащую процедуру для вычисления функции:
Составить Паскаль-программу, содержащую процедуру для вычисления функции:
Ответ(ы) на вопрос:
program znanija_12709640;
var
x :real;
r: real;
begin
write('Input x:');
read(x);
if (x > 0) then
r := Sin(x)
else
if (x = 0) then
r := 0.5
else
r := Cos(x);
writeln(r);
end.
Не нашли ответ?
Похожие вопросы