Задание №1
CLS
DIM
A(20), B(20)
DATA
-6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6
FOR i =
1 TO 8
READ
A(i)
PRINT i,
A(i)
NEXT i
PRINT
"----------------------"
FOR i
= 1 TO 8
B(i) =
A(i) * 5
PRINT
i, B(i)
NEXT i
PRINT
"----------------------"
FOR i
= 1 TO 8
PRINT
i, A(i) * B(i)
NEXT i
PRINT
"----------------------"
i = 5
PRINT
i, A(i)
i = 1
PRINT i, B(i)
<span>
Задание
№2</span>
CLS
INPUT
"vvod A"; A
c1 =
INT(A / 1000)
A = A -
1000 * c1
c2 =
INT(A / 100)
A = A -
100 * c2
c3 =
INT(A / 10)
c4 = A -
10 * c3
S$ =
"No"
IF c1 =
c2 THEN S$ = "Es"
IF c1 =
c3 THEN S$ = "Es"
IF c1 =
c4 THEN S$ = "Es"
IF c2 =
c3 THEN S$ = "Es"
IF c2 =
c4 THEN S$ = "Es"
IF c3 =
c4 THEN S$ = "Es"
<span>PRINT
S$, c1, c2, c3, c4
</span>
Пусть сообщение в восьмибитной системе будет x
тогда в 16 битной x+8000
x - 8 бит
x+8000 - 16 бит крест накрест(пропорции)
8x+64000 = 16x
8x = 64000
x = 8000.
Изначальный вес был 8000 бит.
Ответ:
<u>140</u>
Объяснение:
<u>Используется алгоритмический язык:</u>
Алгоритм будет выполняться до момента пока условие i от 1 до 7 правдиво.
1. 0 + 1 * 1 = <u>1</u> (i1)
2. 1 + 2 * 2 = 1 + 4 = <u>5</u> (i2)
3. 5 + 3 * 3 = 5 + 9 = <u>14</u> (i3)
4. 14 + 4 * 4 = 14 + 16 = <u>30</u> (i4)
5. 30 + 5 * 5 = 30 + 25 = <u>55</u> (i5)
6. 55 + 6 * 6 = 55 + 36 = <u>91</u> (i6)
7. 91 + 7 * 7 = 91 + 49 = <u>140</u> (i7)
Program vasha_zadacha_1;
var a,b,c:integer ;
begin
c:=0;
writeln('введите промежуток от');
readln(a);
writeln('до');
readln(b);
if a>b then
for b:=b to a do begin
if (b mod 5<>0) then c:=c+1;
end;
for a:=a to b do begin
if (a mod 5<>0) then c:=c+1;
end;
writeln('колличество чисел не кратных пяти в этом диапазоне ', c);<span>
end.</span>
расшифровка : Рі=(Сі - Кі = 26)