Вариант 3

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

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

i:byte;

Begin

A:=[1..10,20,30,40];

For i:=1 to 9 do A:=A-[i];

B:=[20..30];

A:=B*А;

End.

Задание №2. В результате выполнения фрагмента программы на экран должно быть выведено значение xⁿ. Выберите правильный фрагмент.

Var I,n,x:integer; Begin Read(x); Read(n); For I:=1 to n do x:=x*i; writeln(x); end.	Var I,n,x:integer; Begin Read(x); Read(n); For I:=1 to n do x:=x*n; writeln(x); end.
Var I,n,x,p:integer; Begin Read(x); Read(n); P:=1; For I:=1 to n do x:=x*p; writeln(x); end.	Var I,n,x,p:integer; Begin Read(x); Read(n); P:=1; For I:=1 to n do p:=p*x; writeln(p); end.

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

Var A, n:integer;

Begin

n:=50; A:=0;

while n >1 do

begin

n:=n div 2;

A:=A+1;

End;

writeln(A);

end.

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

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

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

Var s:string[20];

m, i:integer;

Begin

s:=’karabas’;

i:=1;

while i<=length(s) do

begin

if s[i]=’a’ then s[i]:=’u’;

i:=i+1;

end;

s:=s+’!!!’;

writeln(s); end.

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

Задание №7. Напишите программу, анализирующую данные пожарного датчика в помещении, которая выводит сообщение «Пожароопасная ситуация», если температура в комнате превысила 600. Значение температуры вводится с клавиатуры.

Задание №8. Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран составляющие ее слова из трех букв.

Задание №9. Компонентами файла f являются действительные числа. Найти:

1. сумму компонент;

2. произведение компонент;

3. последнюю компоненту файла.

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

Создать нетекстовый файл, который содержит информацию о телефонах сотрудников учреждения (фамилия, инициалы и номер телефона). Требуется:

а) найти номер телефона сотрудника по его фамилии;

б) переписать в алфавитном порядке в текстовый файл информацию о сотрудниках, у которых первые цифры телефона 41.