1. В некоторой таблице кодировки код символа L равен 143. Какой код будет у символа K?
1. 145 2. 144 3. 142 4. 140
2. В таблице кодировки с следующих кодов: 100 178 90 - зашифрованы некоторые
символы. Среди этих символов могут быть….
1. Буквы латинского и русского алфавита
2. Только буквы русского алфавита
3. Только буквы латинского алфавита
4. Любые символы кроме букв
3. Дан алфавит латинских букв: a b c d e f g h i j k l m n o p q r s … Код буквы «j» в таблице кодировки
символов равен 106. Какая последовательность кодов будет соответствовать слову «file»?
1. 103 104 108 102 2. 102 105 108 101
3. 102 105 108 100 4. 102 104 108 101
4. Укажите команду(ы), при выполнении которой(ых) выделенный фрагмент текста попадает в буфер
обмена
1. вставить
2. заменить
3. вырезать и копировать
4. проверить орфографию
5. выровнять по центру
5.Выбрать действие, относящееся к форматированию текста:
1. Копирование фрагментов текста
2. Проверка орфографии
3. Исправление опечаток
4. Изменение отступа красной строки
6. В какой группе файлов представлены только текстовые документы?
1. Ivanov.doc; petrov.txt
2. Olia.txt; danil.txt; petr.boc
3. Ilia.doc; galina.txt; alex.bmp
4. Fiat.txt; aira.gif; prim.doc
7. Дан текст «Буря мглою небо кроет». К каждому слову (в порядке следования) применены команды:
выделить слово; вырезать слово. Что будет находиться в буфере обмена?
1. мглою 2. Кроет 3. Небо 4.буря
8. Выберите преимущества хранения текста в файлах по сравнению с бумажными носителями:
А) возможность редактирования;
B) меньший объем текста;
C) передача текста по линиям связи;
D) долговременное хранение;
E) быстрое копирование на другие носители;
1. A, B,C,D 2. A,C,E 3. A,C,D 4. A,B,E
9. Выбрать слово, имеющее наименьшую сумму кодов символов в таблице кодировки ASCII.
1. день 2. gень 3. тень 4. лень
10. Текст занимает 5 страниц. На одной странице 30 строк, в каждой строке 70 символов. Какой объем
оперативной памяти займет текст?
1. 84 Кбайт 2. 84000 байт 3. 10500 бит 4. 10500 байт 5. 10,5 Кбайт
Представлю 3 программы два с массивом и один без массива
1)var a:array [1..10] of integer;
i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]=5 then k5:=k5+1;
if a[i]=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end.
2)var a:array [1..10] of integer;
i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a[i]);
if a[i]=5 then k5:=k5+1;
if a[i]=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end.
3)var a,i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
if n<=10 then begin
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a);
if a=5 then k5:=k5+1;
if a=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end;
end.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var
i,n,k:integer;
a:array[1..100] of integer;
begin
writeln('введите числа последовательности. Окончанием ввода будет число 0');
i:=0;
n:=0;
repeat
i:=i+1;
n:=n+1;
read(a[i]);
write(' ');
until (a[i]=0) or (i>1000);
writeln;
k:=0;
writeln('Последовательность:');
for i:=1 to n-1 do
begin
write('a[',i,']=',a[i],' ');
if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then
k:=k+1;
end;
writeln('кол-во целых чётных чисел кратных 7 - ',k);
end.
Второй вариант : 1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var k,n: integer;
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
while n<>0 do
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
end;
writeln(k-1);
end.
3 ВАРИАНТ :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
lim1=30000;
lim2=1000;
var
a,kol,res:integer;
begin
kol:=0;
res:=0;
repeat
repeat
readln(a);
if abs(a)>lim1 then
writeln('Oshibka vvoda. |a|<=',lim1);
until abs(a)<=lim1;
if a<>0 then
begin
inc(kol);
if (a mod 2=0) and (a mod 7=0) then
inc(res);
end;
until (a=0) or (kol=lim2);
write(res);
end.