' Basic
' For ... Next
dim yi as integer
dim n as integer
dim z as double
dim sum as double
dim zi as double
sum = 0
print "Введите n: "
input n
for yi = 1 to n
if ((yi > 15) or (yi < 0)) then
z = 2
else
z = yi
end if
zi = (sqr(z)-z)*(sqr(z)-z)
sum = sum + zi
next
print "Сумма = ", sum;
'-----------------------------------------------------------
' While Wend
dim yi as integer
dim n as integer
dim z as double
dim sum as double
dim zi as double
sum = 0
yi = -1
print "Введите n: "
input n
while (yi < n)
if ((yi > 15) or (yi < 0)) then
z = 2
else
z = yi
end if
zi = (sqr(z)-z)*(sqr(z)-z)
sum = sum + zi
yi = yi + 1
wend
print "Сумма =", sum;
В7.
1.Переводим целую часть 135 10 в 8-ую систему последовательным делением на 8:
135/8 = 16, остаток: 7
16/8 = 2, остаток: 0
2/8 = 0, остаток: 2
13510 = 2078.
Переводим целую часть 135 10 в 2-ую систему последовательным делением на 2:
135/2 = 67, остаток: 1
67/2 = 33, остаток: 1
33/2 = 16, остаток: 1
16/2 = 8, остаток: 0
8/2 = 4, остаток: 0
4/2 = 2, остаток: 0
2/2 = 1, остаток: 0
1/2 = 0, остаток: 1
135 10 = 100001112
Переводим целую часть 135 10 в 16-ую систему последовательным делением на 16:
135/16 = 8, остаток: 7
8/16 = 0, остаток: 8
135 10 = 8716
2.Переводим 100011111 2 в десятичную систему:
100011111 2 = 1·28+0·27+0·26+0·25+1·24+1·23+1·22+1·21+1·1 = 287 10
3.Переводим 100011111 2 в десятичную систему:
100011111 2 = 1·28+0·27+0·26+0·25+1·24+1·23+1·22+1·21+1·1 = 287 10
Переводим целую часть 287 10 в 8-ую систему последовательным делением на 8:
287/8 = 35, остаток: 7
35/8 = 4, остаток: 3
4/8 = 0, остаток: 4
28710 = 437 8
4.Переводим 352 8 в десятичную систему:
352 8 = 3·82+5·81+2·1 = 234 10
5.Переводим 35A 16 в десятичную систему:
35A 16 = 3·162+5·161+10·1 = 858 10
6.Переводим 3365 8 в десятичную систему:
3365 8 = 3·83+3·82+6·81+5·1 = 1781 10
Переводим целую часть 1781 10 в 16-ую систему последовательным делением на 16:
1781/16 = 111, остаток: 5
111/16 = 6, остаток: 15, 15 = F
6/16 = 0, остаток: 6
1781 10 = 6F5 16
7.Переводим 84BD16 в десятичную систему:
84BD16 = 8·163+4·162+11·161+13·1 = 3398110
Переводим целую часть 33981 10 в 8-ую систему последовательным делением на 8:
33981/8 = 4247, остаток: 5
4247/8 = 530, остаток: 7
530/8 = 66, остаток: 2
66/8 = 8, остаток: 2
8/8 = 1, остаток: 0
1/8 = 0, остаток: 1
33981 10 = 102275 8
8.
#include <iostream>
<span>#include <iomanip>
</span><span>#include <fstream>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> float s=0;
</span><span> ifstream f;
</span><span> f.open("input.txt");
</span><span> while(!f.eof()) {
</span><span> f>>n;
</span><span> while (n>0) { s+=n%10; n=n/10; }
</span><span> }
</span><span> f.close();
</span><span> cout<<s<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>
134217728 ^ y бит = <span>8 ^ х бит
65536 ^ x бит = 16777216 ^ y бит
</span><span>
</span>134217728 ^ y бит = 8 ^ х бит
16777216 ^ y бит = 65536 ^ x бит
8 ^ y бит = (1/8192) ^x бит
2 ^ 3y бит = 2 ^ (-13x) бит
x = - (3y / 13), y = - (13x / 3)
Const
ru : array[1..33] of Char = ('а','б','в','г','д','е','ё','ж','з','и',
'й','к','л','м','н','о','п','р','с','т',
'у','ф','х','ц','ч','ш','щ','ъ','ы','ь',
'э','ю','я');
en : array[0..33] of String = (' ','a','b','v','g','d','e','ye','zh','z','i',
'y','c','l','m','n','o','p','r','s','t',
'u','f','h','c','ch','sh','sch','`','ы','',
'ea','yu','ja');
{ транскрипцию записал не заглядывая ни в какие справочники - можете кидаться тапками }
Function GetIndex(ss : Char) : Byte;
Var ii : Byte;
Begin
ii:=1;
While (ii<=33) and (LowerCase(ss)<>ru[ii]) do Inc(ii);
If ii in [1..33] then GetIndex:=ii else GetIndex:=0;
end;
Function Trans(S : String) : String;
Begin
If Length(S)>0 then Trans:=en[GetIndex(S[1])]+Trans(Copy(S,2,Length(S)-1))
else Trans:='';
end;
Begin
Writeln(Trans('паскаль'));
Writeln(Trans('ява'));
end.