Вопрос по sql нужна вставьте пропущенный оператор, чтобы получить все столбы изcustomers таблицы 2) напишите инструкцию, которая будет выбирать city столбец из customers таблицы 3) выберите все различные значения из country столбца customers таблицы
const n=100;
m=100;
var A: array[1..n,1..m] of integer;
i,j,maxi,maxj,k: integer;
begin
randomize;
for i := 1 to n do begin
for j := 1 to m do begin
A[i,j] := random(100);
end;
end;
maxi := 1;
maxj := 1;
for i := 1 to n do begin
for j := 1 to m do begin
if (A[i,j] > A[maxi,maxj]) then begin
maxi := i;
maxj := j;
end;
end;
end;
k := 0;
for i := 1 to n do begin
for j := 1 to m do begin
if (A[i,j] == A[maxi,maxj]) then k := k + 1;
end;
end;
writeln('k = ', k);
end.
var
a, st, summ, pr, count, min, max, count0, SummCh, pr3:integer;
begin
write('Введите число '); readln(a);
writeln;
writeln('Младшая цифра числа: ', a mod 10);
max := a mod 10;
min := max;
Summ := 0;
SummCh := 0;
pr := 1;
count := 0;
count0 := 0;
pr3 := 1;
while a <> 0 do
begin
count := count + 1;
Summ := summ + a mod 10;
pr := pr * (a mod 10);
if (a mod 10) mod 2 = 0 then
SummCh := SummCh + a mod 10;
if (a mod 10 <> 0) and ((a mod 10) mod 3 = 0) then
Pr3 := Pr3 * (a mod 10);
if a mod 10 = 0 then
count0 := count0 + 1;
if a mod 10 > max then
max := a mod 10;
if a mod 10 < min then
min := a mod 10;
if a div 10 = 0 then
St := a mod 10;
a := a div 10;
end;
writeln('Старшая цифра числа: ', St);
writeln('Сумма цифр числа: ', Summ);
writeln('Произведение цифр числа: ', Pr);
writeln('Количество цифр числа: ', count);
writeln('Минимальная цифра числа: ', min);
writeln('Максимальная цифра числа: ', max);
writeln('Количество нулевых цифр: ', count0);
writeln('Сумма четных цифр: ', SummCh);
writeln('Произведение цифр кратных 3: ', Pr3);
writeln;
end.