Var a,b,c:longint;begin readln(a,b); if b>a then begin c:=b; b:=a; a:=c; end; if (a mod 2=0) and (b mod 2=0) then write(a, : 2 = ,a/2) else if (a mod 2=1) and (b mod 2=1) then write(a, * 2 = ,a*2,; ,b, * 2 = ,b*2) else if (a mod 2=1) then write(a, + 1 = ,a+1) else write(b, + 1 = ,b+1); readln;end.
Для начала необходимо вычислить значение выражения: 3658979549970420
После переводим в шестеричную систему, деля число на 6 и записывая остатки в обратном порядке:
3658979549970420/6 -->0
609829924995070/6 --> 4
101638320832511/6 --> 5
16939720138751/6 -->5
2823286689791/6 -->5
470547781631/6 --> 5
78424630271/6 --> 5
13070771711/6 --> 5
2178461951/6 --> 5
363076991/6 --> 5
60512831/6 --> 5
10085471/6 --> 5
1680911/6 --> 5
280151/6 --> 5
46691/6 --> 5
7781/6 --> 5
1296/6 --> 0
216/6 --> 0
36/6 --> 0
6/6 --> 0
1 --> 1
100005555555555555540
Ответ: 5
Информационный объем текста складывается из информационных весов составляющих его символов, Например, следующий текст, записанный с помощью двоичного алфавита:1101001011000101110010101101000111010010<span>содержит 40 символов, следовательно, его информационный объем равен 40 битам.
Т.е. (48*20*60)*2 = 115200 бит = </span>0,014 Мб<span>
</span>1 Мегабайт (Мб) = 1024 Килобайт (Кб) * 8 192 = 8 388 608 бит
<span>1 Килобайт (Кб) = 1024 Байт * 8 = 8 192 бит </span>
<span>1 Байт = 8 Бит</span>
1. var z:array[1..8,1..5] of real;
2. n[i,k]:=random(90)-62;
Ответ:
1)
Begin
Count:=0;
repeat
Read (ch);
If ch> 0 then inc(count);
Until ch<>0
Write(count);
End.
2)
Begin
Sum:=0;
Count:=0;
repeat
Read (ch);
Sum:=sum+ch;
If ch mod 9=0 then inc(count);
Until sum<200
Write(count);
End.