П0 sin ИП0 1/x + С/П
Для значения 5 выдаёт "-7,5892425 -1".
Program z1;
var s,p,i:integer;
begin
s:=0;
p:=1;
for i:= 1 to 10 do
if i mod 2 =0 then s:=s+i
else p:=p*i;
writeln('сумма четных',s);
writeln('произведение нечетных',p);
end.
Свойство определяющее функцию книги название книги и наличие текста.
Var A,B,D,n:integer;
Begin
Write('n = ');ReadLn(n);
A:=1;
B:=1;
For n:= 1 to n do
Begin
D:=A;
A:=A+B;
Swap(A,B);
Write(D,'/',A,' ');
End;
End.