Информатика - это наука, которая изучает законы, методы и способы накопления, хранения, обработки и передачи информации с помощью компьютеров и других технических средств. <span>по форме представления информация делится на письмо, звук, осязание, вкус и видео.</span>
DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
Прялка: 3 последние отбрасываем, вместо Я - О: ПРО
Гиря в 1 грамм: ГРАММ
Аист - отбрасываем 1-ю букву: ИСТ.
Итого: ПРОГРАММИСТ.
Var a,b,c:integer;
k:boolean;
begin
readln(a);
readln(b);
readln(c);
k:=false;
if (a mod 3=0) and (a mod 10=5) then
begin;
writeln(a);
k:=true;
end;
if (b mod 3=0) and (b mod 10=5) then
begin;
writeln(b);
k:=true;
end;
if (c mod 3=0) and (c mod 10=5) then
begin;
k:=true;
writeln(c);
end;
if k=false then writeln('НЕТ');
<span>end.</span>
N=2^x, в нашем случае 2^x=128, отсюда x=7 глубина кодирования 1 бита.
7*350=2450 бит = 0,30625 Кбайт - количество информации на странице книги.