ответьте на вопросы 1)какое поле будет ключевым для таблицымагазин(типмагазина, адрес, численностьассортимента, режимработы, числоработников)? a) тип магазина b) число работников c) режим работы d) ни одно из них 2 какие таблицы базы данных имеют связь "один ко многим"? a) "школы", "директора" b) "студенты", "удостовличности" c) "страны", "флаги" d) "планеты", "спутники" 3). в какой строке следует указывать условия отбора в запросе? a) criteria b) show c) sort d) table 4) какому полю таблицы школа (номер школы, фотография, датасоздания, директор, tелефон, адрес, регион) можно задать тип attachment? a) дата создания b) директор c) фотография d) адрес 5) на основе чего может быть создана форма базы данных? a) таблицы, отчета b) таблицы c) таблицы, запроса d) запроса .отчета
Ответы
program massiv4;
uses crt;
var a, b, c:integer;
begin
clrscr;
randomize;
a:=random(3)+2;
b:=random(35)+10;
c:=a*b*100;
writeln(c);
readln;
end.
вариант 2: показывает более плавную кривую распределения символов A по странице, поскольку генерирует случайное значение встречаемости символа в каждой новой строке:
program massiv4;
uses crt;
var i, a, b, c:integer;
begin
for i := 0 to 99 do
begin
randomize;
b:=random(35)+10;
for i := 1 to b do
begin
randomize;
a:=random(3)+2;
for i := 1 to a do
begin
c:=c+a*b;
end;
end;
end;
writeln(c);
readln;
end.
uses crt;
var a, b, c:integer;
begin
clrscr;
randomize;
a:=random(3)+2;
b:=random(35)+10;
c:=a*b*100;
writeln(c);
readln;
end.
вариант 2: показывает более плавную кривую распределения символов A по странице, поскольку генерирует случайное значение встречаемости символа в каждой новой строке:
program massiv4;
uses crt;
var i, a, b, c:integer;
begin
for i := 0 to 99 do
begin
randomize;
b:=random(35)+10;
for i := 1 to b do
begin
randomize;
a:=random(3)+2;
for i := 1 to a do
begin
c:=c+a*b;
end;
end;
end;
writeln(c);
readln;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информатика 4тоқсан бжб 6 сынып
Автор: Tamara
Программалық жасақтама қандай деңгейден тұрады
Автор: boro-1973
Свойство алгоритма дискретность означает
Автор: buyamel
Сколько нулей в сумме чисел 101112 и 100102?
Автор: Batrakova-Anna
Label1.BackColor=QBColor(3) - свойству Backcolor (цвет фона надписи) объекта Label1 присваивается значение, полученное из набора QBColor под индексом 3
Form1.Caption="Пока!" - Название формы Form1 присваивается надпись в шапке "Пока!"
Form1.Left=10000 - форме Form1 присваивается положение, отчитываемое слева в пикселях, относительно экрана, оно равно 1000
End Sub.- конец обработчика-функции