Решить задачу с использованием функций.

[Владимир20178]

Решить задачу с использованием функций.

Задача 1.
3.JPG
Задача 2.
4.JPG

[Аватар]

покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

function q(a,b:real):real;
begin
   Result:=Sqr(a+b)/(1+b*b)/(1+a*a);
end;

var x,y,r:real;
begin
   Write('x = '); Readln(x);
   Write('y = '); Readln(y);
   r:=2*Sqr(q(x,y))+2/(Sqr(q(x*y,x+y))+Sqr(Sqr(q(x-y,y))));
   Writeln(r:8:5);
   Readln;
end.

function SumDigit(n:integer; var s:integer):boolean;
begin
   Result:=n<>0;
   s:=0;
   Repeat
      s:=s+n mod 10;
      n:=n div 10;
   Until n=0;
end;

var a,b,i,s:integer;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   For i:=a to b do
   begin
      SumDigit(i,s);
      Writeln(i,'  ',s);
   end;
   Readln;
end.