10 Билет

1. Вывести на экран «особенные» номера марки машины согласно следующим признакам:

   1. Все цифра одинаковы (555)

   2. Зеркально отраженное число (969)

   3. Любые две цифры одинаковые (008, 200)

   4. Цифры в числе идут в порядке возрастания или убывания (123, 345, 987)

   5. Специфические номера (013)

   6. А также подсчитать количество таких машин и найти вероятность встречи машины с необычным номером. 29%, 285

uses crt;

var i,k,a,b,c:integer;

begin

k:=0;

for i:=1 to 99 do

begin

if i div 10=0 then begin write('00',i,' ');k:=k+1;end;

if i div 10<>0 then if i div 10=i mod 10 then begin write('0',i,' ');k:=k+1;end; end;

for i:=100 to 999 do

begin

a:=i div 100;

b:=i div 10 mod 10;

c:=i mod 10;

if ((a=c)and (b=c))

or (a=c)

or ((a=c)or (b=c)or (b=a))

or ((a=b+1)and(b=c+1))or((a=b-1)and(b=c-1))

then begin write(i,' ');k:=k+1;end;

end;

writeln;

writeln(k);

write(round(k/999*100),'%');

end.

2. Ввести фами­лию, имя и отчество как одно данное строкового типа. Все буквы 'и' в имени продублировать.

11 билет

1. Найти сумму всех простых трехзначных чисел.

2. Составить программу циклической перестановки букв в словах текста так, что i-я буква слова становится i+1-ой, а последняя - первой.

12 билет

1. Дано натуральное k. Напечатать k-ю цифру последовательности 1234567891011121314..., в которой выписаны подряд все натуральные числа.

2. В массиве А[1..N,1..N] определить номера строки и столбца какой-нибудь седловой точки. Некоторый элемент массива называется седловой точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце.

13 билет

1. Дано натуральное k. Напечатать k-ю цифру последовательности 149162536..., в которой выписаны подряд квадраты всех натуральных чисел.

2. Даны текстовые файлы f и g. Записать в файл h сначала компоненты файла f, затем - компоненты файла g с сохранением порядка.

14 билет

1. Дано натуральное k. Напечатать k-ю цифру последовательности 1123581321..., в которой выписаны подряд все числа Фибоначчи.

2. Построить график функции

15 билет

1. Найти номер первого минимального элемента. Все элементы, расположенные после него и делящиеся на 5 заменить нулями.

2. С клавиатуры вводится текст. Подсчитать и вывести на печать количество слов текста, начинающихся с гласной.

16 билет

1. Найти номер максимального элемента и все отрицательные элементы после него заменить на 5.

2. Ввести фамилию, имя и отчество как одно данное строкового типа. Зашифровать каждое слово, поставив в соответствие букве её номер в алфавите

17 билет

1. Создать (и вывести) новый массив, который состоит из положительных элементов массива у.

2. Дан текст. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) оставить в слове только первые вхождения каждой буквы; 2) если слово нечетной длины, то удалить его среднюю букву

18 билет

1. Найти сумму третьего и шестого положительных элементов

var a,b:array[1..10]of Integer; i,k,m:Integer;

begin

k:=0; m:=0;

for i:=1 to 10 do

begin

a[i]:=Random(15)-2;

write(a[i],' ');

if a[i]>0 then

begin

k:=k+1;

b[k]:=a[i];

end;

end;

writeln;

m:=b[3]+b[6];

writeln(m);

end.

2. Составить таблицу слов данного текста, начинающихся с буквы "А", с указанием числа повторений каждого слова.