1а) -0.0222
1б) 0,0000001
1в) 6800000
1г) 4.3
2)
B=A*A (A^2)
C=B*B (A^4)
D=C*C (A^8)
E=D*C(A^12)
Result=E*A (A^13)
Попробуй что-то типо такого
Н-1
О-4
И т.д и т.п
14сит
смотри : Берешь 5 литров ( заливаешь в большой баллон)
переливаешь в маленький становиться (дальше буду использовать операции долить, вылить перелить)
1. 3 / 2 (М/Б)
2. 0/2
3. 2/0
4. 2/5
5. 3/4
6. 0/4
7. 3/1 и вот в большом баллоне ровно 1 литр воды
Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;
Это все что я помню...
var k:array[1..10] of integer;
var s:real;
var i:integer;
begin
for i:=1 to 10 do begin
k[i]:=round(10*random+3);
s:=s+k[i];
end;
write('Сумма массива = ', s);
writeln
end.
Должно работать, проверьте.