Задание №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>
Программно-аппаратный комплекс, обеспечивающий автоматизированный обмен данными между компьютерами называется компьютерная сеть
7 Кбайт=7168 байт=57344 бит
K-количество пикселей
K=64*128=8192
V=K*i,где i-это глубина цвета в битах
i=V/K=57344/8192=7 бит-это приходится на один пиксель
N=2^i, где N-количество возможных цветов в палитре
N=2^7=128 цветов.
Ответ: 128
Program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n,m,k,c:integer;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y;
end;
begin
writeln('Enter M, N, K');
write('m = ');readln(m);
write('n = ');readln(n);
write('k = ');readln(n);
c:=NOK(k,m);
k:=nok(c,n);
writeln('NOK(M,N,K) = ',k);
readln;
<span>end.
</span>