6) a = 9 b = 17
7) a = 71 b = 189
5) a = 14 b = 42
Объяснение:
6)
а = 3 + 8 * 4 = 3 + 32 = 35
b = (a // 10) + 14 = 3 + 14 = 17
a = (b % 10) + 2 = 7 + 2 = 9
a = 9 b = 17
7)
a = 1819
b = (a // 100) * 10 + 9 = 18 * 10 + 9 = 180 + 9 = 189
a = (10 * b - a) % 100 = (10 * 189 - 1819) % 100 = (1890 - 1819) % 100 = 71 % 100 = 71
a = 71 b = 189
5)
a = 42
b = 14
a = a // b = 42 // 14 = 3
b = a * b = 3 * 14 = 42
a = b // a = 42 // 3 = 14
a = 14 b = 42
// - целочисленное деление двух чисел, возвращает целочисленный результат деления, отбрасывая дробную часть.
35 / 10 = 3,5
35 // 10 = 3
% - получение остатка от деления, возвращает разность от делимого и произведения целочисленного результата деления на делитель
17 / 10 = 1,7
17 // 10 = 1 (целочисленный результата деления)
остаток = 17 - 1 * 10 = 17 - 10 = 7
17 % 10 = 7
const
n = 7;
m = 6;
var
A, b: array[1..n, 1..m] of integer;
i, j, max, min: integer;
begin
writeln('Исходный массив:');
randomize;
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(10) + 3;
write(a[i, j]:5)
end;
writeln;
end;
writeln('Максимальный элемент каждого столбца:');
for j := 1 to m do
begin
max := -Maxint;
for i := 1 to n do
if max < a[i, j] then
max := a[i, j];
write(max:5)
end;
writeln;
for j := 1 to m do
begin
min := Maxint;
for i := 1 to n do
if min > a[i, j] then
min := a[i, j];
for i := 1 to n do
b[i, j] := a[i, j] - min;
end;
writeln('Новый массив:');
for i := 1 to n do
begin
for j := 1 to m do
write(b[i, j]:5);
writeln;
end;
end.
0
Объяснение:
я руский
а), б)
var a, b, c: char;
begin
writeln('Введите 3 символа');
readln(a, b, c);
writeln('Результат сцепления: ', a+b+c);
if a>b then writeln(a,'>', b);
if a>c then writeln(a,'>', c);
if a=b then writeln(a, '=', b);
if a=c then writeln(a, '=', c);
if a<b then writeln(a, '<', b);
if a<c then writeln(a, '<', c);
if b>c then writeln(b, '>', c);
if b<c then writeln(b, '<', c);
end.
в)
var a, b: char;
begin
writeln('Введите 2 символа');
readln(a, b);
if a>b then writeln(b,' ', a);
if a<b then writeln(a,' ', b);
if a=b then writeln(a,' ', b);
end.