1. Перепишите программу на языке Паскаль.

Program primer;
var x,k:integer;
begin
writeln (‘ введите число');
readln(x);
k:=0;
while x<>0 do
x:=x div 10; k:=k+1;
writeln(‘ в числе цифр-’, k);
end.

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

Объяснение:

я руский