Запрограммировать линейные алгоритмы в среде АВСPascal и выслать листинги программ на почту: 1) вычислить значение выражения k=7x+10; 2) килограмм яблок стоит 96 рублей, сколько потребуется денег, чтобы купить n килограмм таких яблок; 3) Расстояние между двумя городами равно 132 км. Определите сколько времени понадобиться путешественнику на преодоление этого расстояния, если его скорость равна V.всё с подробным решением

1 Задача)

var a,k: integer;

begin

writeln('Задайте x');

readln(a);

k:=7*a+10;

writeln(k);

end.

2 Задача)

var a,b,c: integer;

begin

a:=96;

writeln('Сколько килограмм яблок вы хотите купить?');

readln(b);

c:=a*b;

writeln('Вам нужно заплатить ',c);

end.

3 Задача)

var a,b,c: real;

begin

a:=132;

writeln('Задайте скорость');

readln(b);

c:=132/b;

writeln('На преодоление данного расстояния понадобится ',c,' часов');

end.

Объяснение:

1)

CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
    D%(i) = RND * (2 * N + 1) - N
    PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
    IF D%(i) = T THEN
       K = K + 1
    END IF
NEXT i
PRINT "K = "; K
END

2)

CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
    D%(i) = RND * 41 - 20
    PRINT " "; D%(i);
    IF D%(i) < 7 THEN
       K = K + 1
       C%(K) = D%(i)
    END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
    PRINT " "; C%(i);
NEXT i
END

1. Если алфавит состоит из 64 символов, то для хранения каждого из них необходимо 6 бит, так как 2 ^ 6 = 64, то есть достаточно для хранения алфавита такой размерности.

Для хранения сообщения из 60 символов такого алфавита необходимо 60 * 64 = 3840 бит.

Таким образом, сообщение несет 3840 : 8 = 480 байт информации.

2. 0.25 кбайт = 256 байт = 2048 бит

3. 2.5 кБайт = 2560 байт.

2560 байт / 2560 символов = 1 байт/символ

1 байт = 8 бит

8 бит = 256 вариантов (от 00000000 до 11111111).

ответ: 256 символов в алфавите