var a, b, c : longint;function nod3 (a, b, c :longint) : longint; begin nod3 := nod (nod (a, b), c); end;function nod(var a, b: longint): longint; begin if (a = 0) or (b = 0) then if a = 0 then nod:= b else nod:= a else if a >= b then nod:= nod( a mod b, b) else nod:= nod( a, b mod a) end;begin read (a, b, c); writeln (nod3 (a, b, c)); end.
1. Разностная машина Беббиджа должна была заменить группу вычислителей, которые аккуратно склвдывали и вычитали числа. Поэтому утверждение "Б" - справедливо 2. Подготовка данных с перфокарт, утверждение "А" - справедливо. 3. Утверждение "Г" - спорно, хотя в 2000 году в лондонском Музее науки заработал принтер, придуманный Бэббиджем для своей машины.
Вообще машина проектировалась как механический аппарат предназначенный для автоматизации вычислений путем аппроксимации функций многочленами и вычисления конечных разностей.
Var ma:array[1..n,1..n] of integer; i,j,max,maxj,a:integer; begin max:=-1; randomize; writeln('Matrix:'); for i:=1 to n do begin; for j:=1 to n do begin; ma[i,j]:=random(10); write(ma[i,j]:4); end; writeln; end; for j:=1 to n do begin for i:=1 to n do a:=a+ma[i,j]; if a>max then begin max:=a; maxj:=j; end; a:=0; end; write('Максимальный по сумме столбец:',maxj); end.
a, b, c : longint;function nod3 (a, b, c :longint) : longint;
begin
nod3 := nod (nod (a, b), c);
end;function nod(var a, b: longint): longint;
begin
if (a = 0) or (b = 0) then
if a = 0 then
nod:= b
else
nod:= a
else
if a >= b then
nod:= nod( a mod b, b)
else
nod:= nod( a, b mod a)
end;begin
read (a, b, c);
writeln (nod3 (a, b, c));
end.