Всё сделано, принимайте работу)))
Объяснение:
Задача №1:
var a: array [1..100] of integer;
i,ch :integer;
begin
ch:= 0;
for i:= 0 to 8 do
begin
a[i]:= 4 + i*5;
writeln(i+1,'. x = ',a[i],' -- ',a[i]*a[i]);
end;
end.
Задача №2:
var a: array [1..100] of integer;
i,ch :integer;
begin
ch:= 0;
for i:= 0 to 9 do
begin
a[i]:= 3 + i*3;
writeln(i+1,'. x = ',a[i],' -- S = ',a[i]*a[i]*Pi:0:4);
end;
end.
Задача №3:
var x,i,a :integer;
begin
writeln('x = ');
readln(x);
a:= 1;
for i:= 1 to x do
begin
a:= a*i;
end;
writeln('x! = ',a);
end.
1) (x+10*y)/(a+b)
2) ((1/a) + (1/b)) / ((a/2)+(b/4))
3) (((a+b)/(1+b)) + ((a+c)/(2+10*c))) / (c+d)
4) (((100*x+200*y)/(a-b)) + (1/a)) / ((a+b)/(a-b)) - (10*a)/((a+b)*(a+10*b))
5) ((10*x - (a*b)/(a+b)) / (10*y + (a+b)/(a*b))) / (x*y)/(x+y)
Объяснение:
Многовато скобок. Код неполный. Это лишь выражения.