<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(10);
Write('В строку: '); a.Println;
Writeln('В столбец:'); a.PrintLines
end.
<u>Пример</u>
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В строку: 7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В столбец:
7.6
-4.4
-7.2
-4.4
2.2
-3.1
9.6
8.9
-7.1
-6.3
----------------------
begin
var a:=ReadMatrReal(3,3); a.Println(7,2); Writeln;
a.Transform(t->2*t); a.Println(7,2)
end.
<u>Пример</u>
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1
7.60 -4.40 -7.20
-4.40 2.20 -3.10
9.60 8.90 -7.10
15.20 -8.80 -14.40
-8.80 4.40 -6.20
19.20 17.80 -14.20
Компьютер - общая тетрадь
Зрение, слух, обоняние, осязание и тактильное восприятие.
Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin for b:=1 to 1000 do begin for c:=1 to 1000 do begin if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c); end; end;end;<span>end.</span>
Несложно заметить, что по столбцам значения увеличиваются с каждой строкой на 11. Также несложно заметить, то по строке с каждым столбцом значение уменьшается на 10.
Многоточием отмечены еще три столбца.
Для каждой ячейки верна формула a[I,j]=11(I-1)-10(j-1) i=1..7, j=1..7