1. к какой группе алгоритмических языков относится vizual basic? 1) машинно-ориентированным 2) проблемно-ориентированным 3) универсальным 2. назначение символа “, ” в алгоритмическом языке vizual basic? 1) для разделения операторов в одной строке 2) для разделения элементов в списке оператора print, input 3) для отделения дробной части числа от целой 3. назначение символа “: ” в алгоритмическом языке vizual basic? 1) для разделения операторов в одной строке 2) для разделения элементов в списке оператора print, input 3) для отделения дробной части числа от целой

Какой группе алгоритмических языков относится Vizual BASIC - 3
Назначение символа “,”- 2
 Назначение символа “:”  -1

Если матрица подаётся построчно (вводить числа без [] разделённые пробелом)

# input

matrix = []

line = list(map(int, input().split()))

matrix.append(line)

for j in range(len(line) - 1):

   line = list(map(int, input().split()))

   matrix.append(line)

print(matrix)

# k + max

k = int(input("k: "))

maximum = matrix[0][0]

counter = 0

for arr in matrix:

   for num in arr:

       if num % k == 0:

           if maximum < num:

               maximum = num

           counter += 1

print("{0} чисел, кратных {1}".format(counter, k))

if maximum != 0:

   print("Максимальное число кратное {0} - {1}".format(k, maximum))

else:

   print("Нет чисел кратных {0}".format(k))

Если одной строкой, уже массивом ([1,20,3,4],[2,5,5,5],[3,8,9,12],[8,9,10,11])

# input

matrix = input().split("],[")

matrix[0] = matrix[0][1:]

matrix[len(matrix) - 1] = matrix[len(matrix)-1][:len(matrix[len(matrix) - 1])-1]

newMatrix = []

for arr in matrix:

   line = list(map(int, arr.split(",")))

   newMatrix.append(line)

matrix = newMatrix

print(matrix)

# k + max

k = int(input("k: "))

maximum = matrix[0][0]

counter = 0

for arr in matrix:

   for num in arr:

       if num % k == 0:

           if maximum < num:

               maximum = num

           counter += 1

print("{0} чисел, кратных {1}".format(counter, k))

if maximum != 0:

   print("Максимальное число кратное {0} - {1}".format(k, maximum))

else:

   print("Нет чисел кратных {0}".format(k))

program raf105;

var  

 white,blue,red,x,y,z: integer;

 w,b,r: boolean;

begin

writeln('Ввод:');

readln(white, blue, red, x, y, z);

repeat

 w:= false;

 b:= false;

 r:= false;

 if white >= x

   then begin

     white-= x;

     blue+= 1;

   end

   else w:= true;

 if blue >= y

   then begin

     blue-= y;

     red+= 1;

   end

   else b:= true;

 if red >= z

   then begin

     red-= z;

     white+= 1;

   end

   else r:= true;

until w and b and r;

writeln('Вывод:');

writeln(white,' ', blue,' ', red);

end.

PascalABC 3.4.2