var i,a,b,m,sum,s:integer;
begin
read(a,b,m);
for i:=a to b do begin
if(i mod m =0)then sum:=sum+i;
if(i mod 2 =1)then s:=s+1;
end;
writeln(sum,' ',s);
end.
1) 50 * 2 байта = 100 байт - длина в кодировке <span>Unicode
2) 8 бит = 1 байт
50 * 1 байт = 50 байт длина сообщения в кодировке КОИ-8
3) 100 - 50 = 50 байт - на столько уменьшилась длина сообщения</span>
Л - 2
и - 3
с - 4
а - 5
пробел - 6
с - 7
ъ - 8
е - 9
л - 10
а - 11
пробел - 12
К - 14
о - 15
л - 16
о - 17
б - 18
к - 19
а - 20
(если с точкой - 21)
I = 2 байта, K = 56 символов.
I = i*K = 2 * 56 = 112 байт
Во вложении - файл с рабочей книгой MS Excel 2003.
Соответствующие макросы находятся на листах.
Sub abcd()
Dim so As Double, pp As Double, z As Double
so = 0: pp = 1: no = 0: np = 0
For i = 1 To 8
x = Cells(1, i + 1)
For y = -5 To 5 Step 2
z = x * y / (x ^ 2 + y ^ 2)
If z < 0 Then
so = sp + z
no = np + 1
Else
If z > 0 Then
pp = pp * z
np = np + 1
End If
End If
Next y
Next i
Cells(2, 5) = so / no
Cells(3, 5) = pp ^ (1 / np)
End Sub
Sub Ex26()
Dim a As Double, c As Double
For i = 1 To 6
a = Cells(1, i + 1)
c = Application.WorksheetFunction.Max(Abs(a), Abs(Cells(2, i + 1)))
m = 2 * a / (c * Exp(6))
Cells(3, i + 1) = m
Next i
End Sub