9. ( ) Складіть блок-схему алгоритму розв'язування задачі. Задача. Дано ціле число. Повторити 4 рази «Помножити попереднє число на 2». Повідомити результат. Виконати складений алгоритм для двох різних цілих чисел.
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Вводите:'); if s=s.Where(s->s in ['0'..'7']).JoinIntoString then begin var n:BigInteger=0; var p:Biginteger:=1; for var i:=s.Length downto 1 do begin n:=n+(s[i].ToDigit)*p; p*=8 end; if n mod 5=0 then Writeln('Текст является записью восьмеричного числа, кратного 5') else Writeln('Текст является записью восьмеричного числа, не кратного 5') end else Writeln('Текст не является записью восьмеричного числа') end.
Пример Вводите: 26343553 Текст является записью восьмеричного числа, кратного 5
2) Все записи в базе данных имеют: Если здесь вопрос понимать "Все записи в таблице реляционной БД имеют", то ответ, скорее всего, d) Одинаковое количество полей
3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв): c) Продумать структуру базы данных d) Дать имя каждому полю в базе данных a) Занести данные в таблицу b) Осуществить сортировку записей в базе данных
4) Поиск информации– это: a) выбор информации по определённым правилам
5) Примером базы данных может служить: Скорее всего b) Телефонный справочник, хотя и c) Энциклопедия тоже может быть
6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: Да или Нет ? b) В логическом поле
7) В какой из перечисленных пар данные относятся к одному типу? a) 12.04.98 и 01/02/99; - тип дата b) ДА и TRUE (ИСТИНА); - логический тип
8) База Данных содержит информацию о каждой собаке из клуба собаководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? d) текстовое, текстовое, дата, текстовое, числовое;
Возможно, такие ответы. Хотя многие вопросы некорректны.
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Вводите:');
if s=s.Where(s->s in ['0'..'7']).JoinIntoString then begin
var n:BigInteger=0;
var p:Biginteger:=1;
for var i:=s.Length downto 1 do begin
n:=n+(s[i].ToDigit)*p;
p*=8
end;
if n mod 5=0 then
Writeln('Текст является записью восьмеричного числа, кратного 5')
else Writeln('Текст является записью восьмеричного числа, не кратного 5')
end
else Writeln('Текст не является записью восьмеричного числа')
end.
Пример
Вводите: 26343553
Текст является записью восьмеричного числа, кратного 5