Использование SQL За Вывести фамилию преподавателя с кодом 2. 2. Вывести информацию о студентах, обучающихся в группах с кодами 1 и 2. 3. Вывести данные о студентах, фамилии которых начинаются на букву «М». 4. Выбрать записи, содержащие пустые значения о номере квартире студентов (проживающих в доме 5. Отсортировать фамилии студентов в алфавитном порядке. 6. Вывести данные о студентах, отсортировав номера телефонов по возрастанию. 7. Выбрать студентов, фамилии которых заканчиваются на «а». 8. Отсортировать в порядке возрастания фамилии студентов, обучающихся в группе 3. 9. Вывести студентов, родившихся в 1990 году. 10. Вывести данные о студентах с фамилиями «Петров», «Смелов». 11. Вывести в порядке, обратном алфавитному, все имена и фамилии студентов, родившихся не в 1991 году. 12. Вывести информацию о всех студентах, кроме Варечкина и Климовой. 13. Выбрать студентов, у которых номера телефонов связи МТС и начинаются с 3. 14. Сгруппировать данные о студентах по дате рождения. 15. Сгруппировать по улицам данные о студентах, обучающихся в группе с кодом 1.
Ответы
1) program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Информационный объем I = 44100 Гц * 5 * 60 с * 16 бит = 211680000 бит = 26460000 байт = 25839,84375 Кбайт = 25,23422241210938 Мбайт
Задание 2
I = 1,3 Мбайт t = 1 мин Частота дискретизации v = 1,3 * 1024 * 1024 * 8 бит / 60 с / 8 бит = 22719,147 Гц
Задание 3
I = 5.1 Мбайт, t = 2 минуты, v = 22050 Гц Разрядность аудиоадаптера i = 5.1 * 1024 * 1024 * 8 бит / (2 * 60) с / 22050 Гц = 16,1685 бит (округленно 16 бит)
Задание 4
I = 0.01 Гбайт, i = 16 бит, v = 44100 Гц Время t = 0,01 * 1024 * 1024 * 1024 * 8 бит / 16 бит / 44100 Гц = 121 с (округляем до 120 с)