44 в восьмеричной 54
39 в восьмеричной 47
uses crt;
var i,sum,k: integer;
begin
sum:=0;
k:=0;
writeln('<em>Вводите числа. 0 - конец последовательности</em>');
repeat
read(i);
if i mod 2=1 then begin
sum:=sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('<em>Среднее арифметическое нечетных чисел: </em>',sum/k:5:3);
<span>end.</span>
<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>