50 баллов помогите с информатикой. №518

Question

50 баллов помогите с информатикой. №518

---

Answer 1

Var w,r: real;
begin
readln(r);
if r<0 then w:=0;<br>if ((0w:=sin(r);
if r>((5*pi)/6) then w:=1/2;
writeln(w);
end.

Answer 2

function func518(a: real):real;

begin

if (a

else if (a<=(5*Pi)/6) and (a>=0) then func518:=sin(a)

else if (a>((5*Pi)/6)) then func518:=1/2;

end;

var w,st,x0: real;

k: integer;

begin

write('Введите значение, с которого будет идти отсчет: ');

readln(x0);

write('Введите шаг: ');

readln(st);

k:=1;

w:=x0;

while k

begin

writeln(k,'. Для значения ',w,' - ',func518(w));

w:=w+st;

inc(k);

end;

end.

Использована функция, как было указано в задании