4 разных балла + прочерк = 5 символов - мощность алфавита.
2² < 5 < 2³ ⇒ для кодирования 1 ячейки таблицы необходимо и достаточно 3 бит.
В таблице 16 строк и 10 столбцов ⇒ 16×10=160 ячеек
160×3=480 бит
480÷8=60 Байт <span>информации содержит таблица</span>
1)
<span><span>procedure Insert(source: string; var s: string; index: integer);
Вставляет подстроку source в строку s с позиции index</span><span>procedure Delete(var s: string; index, count: integer);
Удаляет из строки s count символов с позиции index
2)
var s:string; i,n,code:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do
begin
val(s[i],n,code);
if code=0 then writeln(n);
end;
end.
Пример:
Введите длинное число:3456810285
3
4
5
6
8
1
0
2
8
5
Если не требуется выполнять арифметических действий с цифрами, то можно так:
var s:string; i:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.</span></span>
Информатика
1)Средство оъеденения людей по всему миру? интернет.
2)Антивирусное ПО для защиты Пк? Нортон
3)Без чего нет решения? Формулы
4)Файл или Папка, по другому? Объект
6)Без чего нет жизни у Пк? материнская плата
7)Программа для защиты ПК? Антивирус
8)Часть кода в html? тэг
10)Устройство ввода информации? Клавиатура
остальное не могу, и тут вопрос у меня не так поставлен
B) power(4, 2.5) + sqrt(1148.25 - power(1.1, 4)) / (156*cos(25*pi/180) + 2.6)
c) 148/abs(2.6 - power(1.4, 3)) + 18.1
2. √(ab) + 2a
---------------
b^2 + 2.3
3. var a: integer, V: integer
BEGIN
write ('Vvedite rebro a'); readln (a);
V = a*a*a;
writeln ('Ob'em kuba V = ', V);
END.