Question

Очень срочно, хотябы пару заданий!!

Answer 1

//Pascal ABC.NET v3.0 сборка 1111

//5
Var
 s:real;
 n,i:integer;
begin
 readln(n);
 for i:=1 to n do
 s:=s+1/i;
 writeln('Res=',s);
end.

Пример ввода:
3
Пример вывода:
Res=1.83333333333333

//4
Var
 x,y:real;
begin
 readln(x);
 if x<=0 then y:=sqr(x)-1;
 if (0<x) and (x<1) then y:=cos(x);
 if (x>1) then y:=sqr(x)+1;
 writeln(y);
end.

Пример ввода:
0.5
Пример вывода:
0.877582561890373