1.В.
2.С.
3.В
4.А
а дальше наугад)))
Немного не понятно с условиями последней задачи. Написал как понял. См. приложения
Wordpad и Word это схожие программы различающееся по функциональности. Wordpad беднее по функциональности чем Word.
Например отсутствуют авто фигуры и некоторые другие функции.
Var
mj,max,i,j,m,n:integer;
mas:array[1..999,1..999] of integer;
begin
randomize;
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(mas[i,j]);
for i:=1 to m do
begin
mj:=-maxint;
max:=-maxint;
for j:=1 to n do
if mas[i,j] > max then
begin
mj:=j;
max:=mas[i,j];
end;
writeln('[',i,';',mj,'] = ',max);
end;
end.
Var
i,m,n,s:integer;
function fact(a:integer):integer;
var l:integer;
begin
l:=1;
for i:=2 to a do
l:=l*i;
fact:=l;
end;
begin
read(m);
readln(n);
s:=0;
for i:=m to n do
if i mod 2=0
then s:=fact(i)+s;
writeln('Suma: ',s);
end.