Вариант 5
Задание №1. Перечислить через запятую, в возрастающем порядке элементы, которые входят в множество А после выполнения следующей последовательности операторов.
Var A,B,C:set of 1..100;
i:byte;
Begin
A:=[1,2,3];
For i:=1 to 100 do A:=A+[i];
B:=[1..10];
A:=B*А;
C:=[3..6]+[4..7];
A:=C*A;
End.
Задание №2. Вводится 10 чисел. В результате выполнения программы на экран должно быть выведено среднее арифметическое четных чисел. Выберите правильный фрагмент.
а) Var I,x,s:integer; Begin Read(x); S:=0; If x mod 2=0 then begin For I:=1 to 10 do S:=s+x; writeln(s/10:4:2); end; end.
|
b) Var I,x,s:integer; Begin Read(x); S:=0; For I:=1 to 10 do If x mod 2=0 then S:=s+x; writeln(s/10:4:2); end.
|
c) Var I,x,s,k:integer; Begin S:=0; k:=0; For I:=1 to 10 do begin Read(x); If x mod 2=0 then Begin S:=s+x; K:=k+1; End; End; If k=0 then writeln(s) Else writeln(s/k:4:2); end. |
d) Var I,x,s,k:integer; Begin S:=0; k:=0; For I:=1 to 10 do begin Read(x); If x mod 2=0 then S:=s+x; K:=k+1; End; If k=0 then writeln(s) Else writeln(s/k:4:2); end.
|
Задание №3. Какое значение переменной А будет выведено на экран оператором writeln(A) в результате выполнения следующей программы?
Var n:integer;
A: real;
Begin
n:=2; A:=0;
while A <=1 do
A:=A+1/n;
N:=n+1;
writeln(A:3:1);
end.
Задание №4. Требуется найти и вывести на экран произведение нечетных элементов массива из 10 чисел. Массив заполняется случайными числами. Определите правильный вариант программы
а) Var a:array[1..10] of integer; s,i:integer; Begin for i:=1 to 10 do a[i]:=random(100); s:=0; for i:=1 to 10 do if a[i] mod 2<>0 then s:=s*a[i]; writeln(s); end.
|
b) Var a:array[1..10] of integer; s,i:integer; Begin for i:=1 to 10 do a[i]:=random(100); s:=1; for i:=1 to 10 do while a[i] mod 2 <>0 do s:=s*a[i]; writeln(s); end.
|
c) Var a:array[1..10] of integer; s,i:integer; Begin for i:=1 to 10 do a[i]:=random(100); s:=1; for i:=1 to 10 do if a[i] div 2 <>0 then s:=s*a[i]; writeln(s); end.
|
d) Var a:array[1..10] of integer; s,i:integer; Begin for i:=1 to 10 do a[i]:=random(100); s:=1; for i:=1 to 10 do if a[i] mod 2 =1 then s:=s*a[i]; writeln(s); end.
|
Задание №5. Введите в строку ответа строку s, которая будет выведена на экран в результате выполнения следующей программы.
Var s,s1:string[20];
m, i:integer;
Begin
s1:=’karabas’;
i:=1;
while s1[i]<>’b’ do i:=i+1;
s:=copy(s1,i,3);
s:=s+’-’+s;
writeln(s);
end.
Задание №6. С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Сжать массив, удалив из него все элементы, модуль которых находится в интервале [а,b]. Освободившиеся в конце массива элементы заполнить нулями.
Задание №7. Составьте программу, проверяющую, что введенное число делится без остатка на 3.
Задание №8. Дана строка символов, среди которых есть двоеточие. Определить, сколько символов ему предшествует.
Задание №9. Найдите в файле и выведите на экран четные числа.
Задание №10. Выполняется по инструкции, которая прилагается.
Создать текстовый файл fonotek.txt, содержащий сведения о музыкальных альбомах различных групп (название группы, название альбома, год выпуска, стиль). Удалить из файла все альбомы в стиле pop и techno. Переписать в другой файл информацию об альбомах в порядке убывания года выпуска.