Решите срочноИнформатика 10 баллов

Ответ:

1.

Паскаль:

Function Y(a:integer,b:integer):real

Begin

Y=a/b+b*b;

end;

2.

Procedure qwer(a:integer,b:integer,c:integer)

Begin

If alt;0 then

Write(a*a*a*a)

Else Write(a*a);

If blt;0 then

Write(b*b*b*b)

Else Write(b*b);

If clt;0 then

Write(c*c*c*c)

Else Write(c*c);

End;

3.

Function I(a:integer,b:integer,c:integer):integer

Begin

If agt;0 then

I:=i+1;

If bgt;0 then

I:=i+1;

If cgt;0 then

I:=i+1;

End;

4.

Var i,sum:integer;

Begin

For i:= 1 to 30 do

If i mod 2= 1 then

Sum := sum +i;

Write(sum);

End.

5.

Var i:integer;

K:real;

Begin

K := 40000;

For i:=1 to 5 do

Begin

Write(k);

K:=k*1.03;

End;

End.