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)
Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
Координата точки х = 4, у = 0 m = 5, где m размер изображения
16-битной кодировке Unicode.
один символ s =16 бит
количество бит текстового файла К= 128000 бит/с * 60 с= 7680000
количество символов К/s=7680000/16 =480000