program Project1;
uses
SysUtils;
label l;
var m, n,i : integer;
sum : longint=0;
function Fact (n : integer) : longint;
begin
if (n=0) or (n=1)then Fact:=1 else
Fact:=n*Fact(n-1);
end;
begin
l: write('m= ');
readln(m);
write('n= ');
readln(n);
if m>n then begin
writeln('povtorit vvid');
goto l end;
for i:=m to n do
if i mod 2=0 then
sum:=sum+Fact(i);
writeln('sum fact=',sum);
readln;
end.
Рис.7.2 Програма в процесі виконання
3. Дано цілочисельну прямокутну матрицю. Створити функцію визначення номера останнього з стовпців, що не містить нуля.
