Ответ: 1022 по основанию 8 --> 1*8^3+0*8^2+2*8^1+2*8^0 = 512+0+16+2 = 530 по основанию 10
Var a,b,c,d,max:integer;
begin
read(a);
max:=a;
read(b);
if b>max then
max:=b;
read(c);
if c>max then
max:=c;
read(d);
if d>max then
max:=d;
writeln(max);
<span>end.</span>
Методом тыка понимаем что удобоваримое получается при использовании второй таблицы
Получаем фразу
"Собрание второго мая"
числовые слова наверное "второго" = 2, "мая" = 5 (порядок месяца в году)
2 + 5 = 7 (и в восьмиричной тоже)
да, второе понятие конкретизированно, и вродебы на моей памяти так не говорят. говорят СУБД
//Pascal
//1)
var
A: array[1..5, 1..8] of integer;
i, j: byte;
sumR, sumC: integer;
begin
randomize;
writeln('Исходный массив':28);
for i := 1 to 5 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(61)-30;
write(A[i,j]:5);
if i = 3 then sumR := sumR + A[i, j];
if j = 5 then sumC := sumC + A[i, j];
end;
writeln;
end;
writeln('Сумма элементов 5 столбца = ', sumC);
writeln('Сумма элементов 3 строки = ', sumR);
end.
//2)
var
A: array[1..5, 1..8] of integer;
i, j: byte;
sumA, sumB, countV, countG: integer;
begin
randomize;
writeln('Исходный массив':28);
for i := 1 to 5 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(300)-150;
write(A[i,j]:5);
if ((i = 5) and (A[i, j] < 0)) then sumA := sumA + A[i, j];
if ((j = 4) and (A[i, j] < 100)) then sumB := sumB + A[i, j];
if ((i = 4) and (A[i, j] < 5)) then countV := countV + 1;
if ((j = 2) and (A[i, j] > 15)) then countG := countG + 1;
end;
writeln;
end;
writeln('Сумма отрицательных 5 строки = ', sumA);
writeln('Сумма меньших 100 4-ого столбца = ', sumB);
writeln('Количество меньших 5 4-ой строки = ', countV);
writeln('Количество ненулевых, больших 15 2-ого столбца = ', countG);
end.
