1)
uses crt;
const
n=5;m=7;
var
i,j,s:integer;
a:array[1..n,1..m]of integer;
begin
randomize;
clrscr;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(40)-19;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
writeln ('j:',j,' ', s);
writeln;
end;
end.<span>
</span>
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
Таблицы созданы, связь установлена, запрос сформирован. Данные надо будет набить. Базу данных сюда прикрепить нельзя. Выложена тут: https://yadi.sk/d/a2sdyUO5TVd45
Что это значит это вообще вопрос
Я не понимаю о какой "Архитектуре" ты говоришь, но в Информатеке шиной называбт тип соединения, при котором одной "шиной" соединяются несколько компьютеров и устройств. Например: ПК1 - ПК2 -ПК3 - Принтер - ПК4 - Сканер