Программа и процедура перевода из 10 сс в 8 сс на паскале. заранее большой .

Var  n: integer; function oct(x: integer): string; var  s: string; begin while x > 0 do       begin       s : = inttostr(x mod 8) + s;       x : = x div 8;       end; result : = s; end; begin  write('введите число: ');   readln(n);   writeln('восьмиричная форма: ', oct(n)) end.

в достаточно держать в памяти два числа: наибольшее и второе по величине – и обновлять эту пару, считывая числа. если считанное число больше максимального, то оно будет новым максимумом, а бывший максимум станет вторым по величине; если считанное число меньше максимального, но больше второго по величине, то оно становится новым вторым по величине.

реализация (python 3):

max, max2 = int( int(

if max2 > max:

    max, max2 = max2, max

while true:

    t = int(

    if t == 0: break

    if t > max:

            max, max2 = t, max

    elif t > max2:

            max2 = t

print(max2)

пример ввода:

5

1

3

2

4

0

пример вывода:

4

Будем считать, что ввод значения = 0 признак окончания ввода членов последовательности. тогда можно попробовать так: var a,max,maxn,n: integer; begin   readln(a);   max: =a; maxn: =1; n: =1;   while a< > 0 do begin       readln(a);       n: =n+1;       if a> max then begin           max: =a; maxn: =n;       end;   end;   writeln('максимальный : ',max,'  номер : ',maxn); end.