Контрольная работа

Вариант 1.

1. Дано слово. Получить и вывести на экран буквосочетание, состоящее из его третьего и. последнего символов.

2. Найти количество различных цифр заданного числа (деление и остаток не использовать).

3. Дана строка. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран.

Вариант 2.

1. Дано слово, состоящее из четного числа букв. Вывести на экран его первую половину

2. Подсчитать стоимость телеграммы по ее тексту. Одно слово стоит 3 руб. Плата за услуги телеграфиста – 5 руб.

3. В строке удалить символ двоеточие (:) и подсчитать количество удаленных символов.

Вариант 3.

1. Путем вырезок и склеек букв получить из слова вертикаль слова тир и ветка.

2. Найти количество трехзначных чисел, сумма цифр которого равна А, заканчивающихся на В. (А и В вводятся с клавиатуры).

3. Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом).

Вариант 4.

1. Дано слово. Добавить к нему в начало четыре символа «+» и в конец — пять символов «*»

2. Составить программу подсчитывающей в тексте число слов “шина”.

3. Дана строка. Указать те слова, которые содержат хотя бы одну букву Л.

Вариант 5.

1. Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования.

2. Дано предложение. Определить число буки .О в нем.

3. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

Вариант 6.

1. Даны два слова. Верно ли, что первое слово начинается на ту же букву, которой оканчивается второе слово?

2. Дано предложение. Все буквы «е» в нем заменить на букву «и».

3. Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

Тест по теме «Строки»

1. Каков будет результат выполнения оператора s:=Length(‘Каникулы’)?

1. 24

2. 8

3. True

4. 0

2. Каков будет результат выполнения оператора delete(‘информатика’,3,4);

1. инатика

2. форма

3. формат

4. инф

3. В типе STRING количество символов одной строки не должно превышать:

1. 200

2. 255

3. 1024

4. 16

4. Каково значение выражения: x:=Length(‘Привет’)+ Length(‘Ура’);

1) 9

2) ПриветУра

3) 12

5. Каково значение выражения: X:=Copy(‘привет’,2,3);

1) при

2) рив

3) вет

6. Переменная Х=’Информатика’ Правильное описание переменной:

1) x: string[13];

2)X:char(11)

3) x:string;

4) x: string[11];

7. Какие значения получат переменные после выполнения процедуры:

VAL(25!3,x,k)

1. x=0 k=3

2. x=25.3 k=0

3. x=0 k=0

8. Определите истинное выражение:

1. ‘123’>’7’

2. ‘Муха’>’Бегемот’

3. ‘Стол’<’Стул’

9. Определить значение переменной после выполнения программы:

Begin А:=’град’; В:= ‘ус’; c:=A+B; C:=B+A; Writeln(c); End.

1. градус

2. усград

3. градусусград

10. Определить значение переменной после выполнения программы:

Begin А:=’град’; В:= ‘ус’; c:=B[2]+B[1]+A[4]; Writeln(c); End.

4. дус

5. суд

6. рад