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

В тетради создать структуру БД "Книги", содержащую сведения, приведенные лице, Данные организовать в виде 3 таблиц. В каждой таблице предусмотреть поле "Код" (тип данных счетчик"), по которому
осушествить связь между таблицами. Каждая таблица должна содержать не менее 4 полей с различными типами данных.
Данные по таблица распределить таким образом, чтобы при создании запросов данные брались из разных таблиц.
Недостающие данные необходимо придумать самим. Начертить таблицы в режиме аналогичном режиму "Конструктора" и
рому "Редактирования". Показать схему данных созданной базы данных.
Язык
Цена
Код книги
Автор
Название книги
Кол-во
страниц
Жанр
А. Дома
589
Роман
125
009
Королева Марго
Русский
336
Детектив
25
Глупая история
E. Данченко
Французский 375
3.л. Войти
Классика
544
073
Русский
Озод
316
240
М. Синицкий
Детектив
225
514
Шуники
Русский
Ф.Саган
Роман
655
074
Французский 615
Прощай, печаль
A Дома
Роман
424
103
Сорок пять
Французский 475
Английский 265
105
Черное солнце
ДЛокард
Фантастика 494
Английский
101
419
Разбойный эскадрон
М. Стеклол
Фантастика 576
Осень
Роман
195
В. Левиц
270
Французский 18,60
400
Амило
Научная
литература
129
380
Русский
Программирование

Запишите условия для следующих запросов:
а) произведения Эл. Войнич;
6) романы, написанные на француском языке;
3)книги с количество страниц более 400 и стоимостью менее 400.
Покажите, как выглядит условия запросов и как будут выглядеть результаты выполнения запросов.

👇
Открыть все ответы
Ответ:
vadimash
vadimash
24.10.2022

1.

import random

a = random.randint(1,15)

b = random.randint(1,15)

if a == b:

a = 0

b = 0

print(a,b)

2.

import random

n = random.randint(1,999)

a = ""

b = ""

n = str(n)

if len(n) == 1:

a = "однозначное"

elif len(n) == 2:

a = "двухзначное"

elif len(n) == 3:

a = "трёхзначное"

n = int(n)

if n % 2 == 0:

b = "чётное"

else:

b = "нечётное"

print(a + " " + b + " число")

3.

n = int(input("Введите номер дня недели: "))

if n == 1:

print("Понедельник")

elif n == 2:

print("Вторник")

elif n == 3:

print("Среда")

elif n == 4:

print("Четверг")

elif n == 5:

print("Пятница")

elif n == 6:

print("Суббота")

elif n == 7:

print("Воскресенье")

else:

print("Такого дня недели нет")

4,5(52 оценок)
Ответ:
00012333334
00012333334
24.10.2022
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := Abs(ReadInteger('Введите целое число:'));

 var yes := False;

 var n1 := n mod 10;

 n := n div 10;

 while n > 0 do

 begin

   var n2 := n mod 10;

   if n1 = n2 then

   begin

     yes := True;

     break

   end;

   n := n div 10;

   n1 := n2

 end;

 if yes then Print('Верно')

 else Print('Неверно')

end.


А еще это можно решить, к примеру, так:

begin

 var s := Abs(ReadInteger('Введите целое число:')).ToString;

 if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')

 else Print('Неверно')

end.

4,5(1 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ