Регистрация
NastyaVelikaya2000
06.12.2021 23:09
Информатика
Есть ответ 👍

Дана матрица размера m × n. вывести ее элементы, расположенные в столбцах с четными номерами (2, 4, …)
на языке pascal

223
281
Посмотреть ответы 2

Ответы на вопрос:

Jyrtasa
Jyrtasa
4,7(14 оценок)

pascalabc.net

begin

  var (m, n) : = readinteger2('введите m и n: ');

  var a : = matrrandom(m, n, -99, 99);

  a.println;

  writeln;

  foreach var j in range(1, n - 1, 2) do

    a.col(j).println

end.

Ксения200612
Ксения200612
4,5(79 оценок)
Program prost; vari,m,j,k: integer; begin readln(m); for i: = 2 to m do begin  k: =   0; for j: = 2 to m-1 do   if i mod j   = 0 then   k: =k+1; if k< 2 then   write(i,' '); end; end.

Популярно: Информатика