<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln(4 * a.ColCount * '-');
var nCol := ReadInteger('В каком столбце ищем?');
var C := ReadInteger('На кратность чему проверить?');
if a.Col(nCol - 1).Any(t -> t mod C = 0) then
Writeln('Есть такие элементы')
else Writeln('Таких элементов нет')
end.
1.
var
a, b, c, s, p: integer;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
<span>end.
2.
</span>var
a, b, c, s, p: integer;
sr: real;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
sr := s/3;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
writeln('(', a, '+', b, '+', c, ')/3=', sr);
<span>end.</span>
вы получите факториал 5! = 120.
var
f, i:integer;
begin
f := 1;
for i := 1 to 5 do
f := f * i;
writeln (f);
end.