Вариант 10

Задание №1. Перечислить через запятую в возрастающем порядке элементы, которые входят в множество А после выполнения следующей последовательности операторов.

Var A,B,C:set of 1..50;

i:byte;

Begin

A:=[];

C:=[1..6];

i:=1;

While C<>[] do

begin

C:=C-[i];

If i mod 2 =0 A:=A+[i];

i:=i+1;

end;

End.

Задание №2. Вводится 10 целых чисел. В результате выполнения программы на экран должны быть выведены четные числа большие 100 и сумма всех нечетных. Выберите правильный фрагмент.

a) Var I,x,p:integer; Begin P:=0; for I:=1 to 10 do begin Read(x); If (x mod 2=0) and (x>100) then Writeln(x) else p:=p+x; End; Writeln(p); End.	b) Var I,x,p:integer; Begin P:=0; for I:=1 to 10 do begin Read(x); If (x mod 2=0) and (x>100) then Writeln(x); If (x mod 2<>0) then p:=p+x; End; Writeln(p); End.
c) Var I,x,p:integer; Begin P:=0; for I:=1 to 10 do Read(x); for I:=1 to 10 do begin If (x mod 2=0) and (x>100) then Writeln(x); If (x mod 2<>0) then p:=p+x; End; Writeln(p); End.	d) Var I,x,p:integer; Begin P:=0; for I:=1 to 10 do begin Read(x); If (x mod 2=0) and (x>100) then Writeln(x); If (x mod 2<>0) then p:=p+x; Writeln(p); End;End.

Задание №3. Какое значение переменной А будет выведено на экран оператором writeln(A) в результате выполнения следующей программы?

Var A, n:integer;

Begin

n:=527; A:=0;

repeat

A:=A+(n mod 10);

n:=n div 10;

until n=0;

writeln(A);

end.

Задание №4. Требуется найти и вывести на экран максимальный элемент в массиве из 10 чисел. Массив заполняется случайными числами. Определите правильный вариант программы.

а) Var a:array[1..10] of integer; m, i:integer; Begin for i:=1 to 10 do a[i]:=random(100); for i:=2 to 10 do if m<a[i] then m:=a[i]; writeln(m); end.	b) Var a:array[1..10] of integer; m, i:integer; Begin for i:=1 to 10 do a[i]:=random(100); m:=a[1]; for i:=2 to 10 do if m<a[i] then m:=a[i]; writeln(m);end.
c) Var a:array[1..10] of integer; m, i:integer; Begin for i:=1 to 10 do a[i]:=random(100); m:=a[1]; for i:=2 to 10 do if m<a[i] then m:=a[i]; writeln(a[i]);end.	d) Var a:array[1..10] of integer; m, i:integer; Begin for i:=1 to 10 do a[i]:=random(100); m:=a[1]; for i:=2 to 10 do begin if m<a[i] then m:=a[i]; writeln(m);end;end.

Задание №5. Введите в строку ответа строку s, которая будет выведена на экран в результате выполнения следующей программы.

Var s,s1:string[20];

m, i:integer;

Begin

s1:=’hot-dog’;

i:=1;

while s1[i]<>’-’ do i:=i+1;

s:=copy(s1,i+1,3);

s:=s+’-’+s;

writeln(s);

end.

Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине – элементы, стоявшие в нечетных позициях.

Задание №7. К финалу конкурса лучшего по профессии «Специалист электронного офиса» были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал M1 баллов, во втором – N1, в третьем – P1. Петров – соответственно M2, N2, P2. Сидоров – M3, N3, P3. Составьте программу, определяющую, сколько баллов набрал победитель.

Задание №8. В записке слова зашифрованы — каждое из них записано наоборот. Расшифровать сообщение.

Задание №9. Заданы множества М и N одного типа. Подсчитать, сколько элементов из множеств М и N совпадает.

Задание №10. Выполняется по инструкции, которая прилагается.

Создать нетекстовый файл, в котором записаны сведения о пациентах поликлиники (фамилия, год рождения, номер страхового полиса, дата последнего посещения: число, месяц). Вывести в текстовый файл фамилии и номера полисов пациентов, посетивших поликлинику в текущем месяце. Месяц вводится с клавиатуры пользователем. Вывести в другой файл информацию о пациентах в алфавитном порядке. Вывести на экран фамилии самого молодого и самого старшего пациентов.