Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//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 if (x>1) then y:=sqr(x)+1;
 writeln(y);
end.

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