Дана программа: Program zl;
var s.t: integer;
begin
readln(s);
readln(t);
if (s<10) or (t>10)
I
then writeln('ДА)
else writeln('HET')
end.
Было проведено 9 запусков этой программы, при которых в качестве
значений переменных ѕи t вводились следующие пары чисел:
(1, 2); (11, 2); (1, 12); (11, 12); (-11, -12);
(-11, 12); (-12, 11): (10, 10); (10,5)
Сколько было запусков, при которых программа напечатала «ДА»?
ответ:
1 )В кодовых таблицах КОИ-8 и Windows сначала расположены прописные русские буквы, а затем строчные. Русские прописные буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 223. Русские буквы в кодовых таблицах КОИ-8 и Windows имеют номера со 192 по 225.
2)
film
face
fine
fire
3)3
4) i = 1 байт
k = «Речь вести - не лапти плести.»
Найти:
V - ?
Решение
i = 1 байт = 8 бит
В предложении «Речь вести - не лапти плести.»- 29 символов
V = k * i (формула нахождение объёма текстовой информации)
Где, к – количество символов в тексте
V = 29 * 8 = 232 бит = 29 байт
ответ: текст содержит 29 байт информации
5 )Слово занимает 14 байт =14*8=112 бит памяти. Решение: Переведем Кб в байты: 0, 25 Кб * 1024 =256 байт. Так как текст занимает объем 256 байт, а каждый символ – 1 байт, то в тексте 256 символов.
6)31 управляющие
7)4
8)576 битов тоесть :576/8=72 бита
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.