М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Fhftt3
Fhftt3
20.05.2022 19:08 •  Информатика

РЕБЯТА ОЧЕНЬ ТЕСТ ПО ИНФОРМАТИКЕ ПО БАЗЕ ДАННЫХ! 1. В одном поле реляционной базы данных могут быть записаны: а) только числовые данные. б) данные разных типов. в) только время создания записей. г) данные только одного типа д) только текстовые данные.
2. Чем отличаются между собой таблицы базы данных? а) Типом полей таблицы Базы данных б) количеством полей таблицы базы данных. в) размерами полей БД (базы данных) г) значениями ключевых полей таблицы БД
д) Количеством ключевых полей таблицы БД
3. Тип поля а реляционной БД определяется: а) названием (именем) поля. б) шириной поля. в) количеством записей в таблице БД. г) количеством значений этого поля. д) типом данных в этом поле.
4. Значение "истина" могут принимать поля какого типа? а) дата/время. б) числового в) МЕМО г) логического д) текстового
5. Значения 2-51-23-45 или 2-55-34-35 могут принимать поля какого типа? а) только числового. б) счётчик. в) только логического. г) только дата/время. д) только текстового.
6. Поле записи (или совокупность полей), однозначно определяющие запись, называется: а) отмычкой базы данных. б) замком базы данных. в) сейфом базы данных. г) меткой базы данных. д) ключом базы данных. е) исключительных полем базы данных. ж) идентефикатором БД. ​

👇
Открыть все ответы
Ответ:
kirillan2
kirillan2
20.05.2022
Program pr1;
Var i, N, k1, k2, k3, R : integer;
mas: array[1..100]of integer;
Begin
Writeln ('Введите число элементов массива (N<100)');
Readln (N);
For i:=1 to N do begin
Write ('Введите ', i, ' элемент массива ');
Readln (mas[i]);
end;
Write ('Введите номера элементов, которые необходимо поменять местами: ');
Readln (k1, k2);
Writeln ('Исходный массив: '); 
For i:=1 to N do write(mas[i], ' ');
writeln;
if (mas[k1] mod 2=0)and(mas[k2] mod 2=0) then
 begin 
 R:=mas[k1]; mas[k1] := mas[k2]; mas[k2] := R; 
 end
else
 begin
 write('Введите ещё один номер: ');
 readln(k3);
 R:=mas[k3]; mas[k3] := mas[1]; mas[1] := R; 
 end;
Writeln ('Итоговый массив: '); 
for i := 1 to N do Write (mas[i], ' '); 
End.

Пример:
Введите число элементов массива (N<100)
5
Введите 1 элемент массива 12
Введите 2 элемент массива 84
Введите 3 элемент массива 37
Введите 4 элемент массива 59
Введите 5 элемент массива 20
Введите номера элементов, которые необходимо поменять местами: 2 4
Исходный массив: 12 84 37 59 20
Введите ещё один номер: 5
Итоговый массив: 20 84 37 59 12
4,4(31 оценок)
Ответ:
alya5511Аля
alya5511Аля
20.05.2022
Var
   A:integer;
Begin
Randomize;
A:=random(101);
WriteLn('Исходное число: ',A);
if A mod 2 = 0 then WriteLn('Число чётное, ',A/2)
else WriteLn('Число нечётное, ',A*A);
End.

Var
   A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A>15)and(A mod 10 = 6) then WriteLn(A*A,', весна')
else WriteLn(Sqrt(A),', осень')
End.

Var
   A:integer;
Begin
Randomize;
A:=random(900)+100;
WriteLn('Исходное число: ',A);
if A mod 5 = 0 then WriteLn('Оно кратно пяти, ',A div 10)
else WriteLn('Оно не кратно пяти, ',A mod 100);
End.
4,7(89 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ