Факториалом числа называет произведение всех чисел от 1 до этого числа. Нам нужно посчитать 1 * 2 * 3 * 4 * 5 * 6 * 7 тремя и убедиться, что получится 5040.
PascalABC.NET 3.2 begin var fact := 1; var i := 1; while i < 8 do begin fact *= i; i += 1; end; println('Через while получилось', fact);
fact := 1; for i := 1 to 7 do fact *= i; println('Через for получилось', fact);
fact := 1; i := 1; repeat fact *= i; i += 1; until i > 7; println('Через repeat получилось', fact); end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4);
Println(4*a.ColCount*'-');
var i:=ReadInteger('Укажите номер столбца (счет от 1):');
if i.InRange(1,a.ColCount) then
begin
var col:=a.Col(i-1);
Println('Сумма элементов столбца',col.Sum,'max=',col.Max)
end
else
Println('Недопустимый номер колонки')
end.