Const
maxn = 4;
maxm = 5;
type
myarr = array [1..maxn, 1..maxm] of longint;
var
a: myarr;
sum, i, j: longint;
begin
for i := 1 to 4 do begin
for j := 1 to 5 do begin
a[i, j] := i * j;
write(a[i, j], ' ');
end;
writeln;
end;
sum := 0;
for j := 1 to 5 do begin
for i := 1 to 4 do
if (a[i, j] mod 3 = 0) then
sum := sum + a[i, j];
writeln('Сумма чисел, кратных 3, в ', j, ' столбце равна ', sum);
sum := 0;
end;
end.
Главный мозг
От него все зависит
Двоичная= 110111100.001
восьмеричная = 674.1
шеснадцатеричная = 1BC.2
2 = 1111011101.011
8= 1735.3
16 = 3DD.6
2--- 11101101.1011101011...
8--- 355.5656050753...
16----
ED.BAE147AE14...
Ответ:
База данных, основанная на представлении данных в виде таблиц, называется реляционной
Рота Нота Нора Пора Пола Полк
Бант Кант Карт Корт Кора Коса
Бег Бог Бок Бак Бас Бал Бар Шар Шаг Море Горе Гора Пора Кора Кара Каша Саша Суша
Миг Мир Пир Пар Бар Бас Бес Вес Век