символьный тип Опции

[dummy]

Дана непустая последовательность неотрицательных целых чисел, записанных в семиричной системе счисления, между соседними числами -пробел, за последним -точка. Определить наибольшее из них и вывести его в десятичной системе счисления. Найдите, пожалуйста, ошибку:

program maximum (input, output);
var c: char; n0, max, k: integer;
begin 
 n0:=0;
 max:=0;
  repeat
    read( с );
    if c<>' ' then 
       begin
          k:=0 
          repeat 
              k:=7*k+ord( c )-n0;
              read( c ) until c=' ';
              if k>max then max:=k
        end 
    else read( c )
   until c='.';
 writeln(max)
end.

код не хочет работать...совсем...ааа.... :molitva:

[volvo]

dummy, почти верно, но для того, чтобы не нужно было после каждого символа нажимать Enter все-таки пользуйся ReadKey + Write (смотри в программе)... Ну и добавил ограничение на вводимые символы (если система с основанием 7, то чисел больше 6 быть не может в принципе...)

program maximum (input, output);
uses crt;

var
  c: char;
  max, k: integer;

begin
  max:=0;
  repeat
    c := readkey; write( c );
    if c <> ' ' then begin

      k := 0;
      repeat

        k := 7*k + ord( c )-ord('0');
        repeat
          c := readkey;
        until c in ['0' .. '6', ' ', '.'];
        write( c );

      until c in [' ', '.'];
      if k > max then max:=k

    end
    else read( c )

  until c='.';

  writeln;
  writeln(max)
end.

[Guest]

Спасибо огромное!!!
Readkey тольк пока нам использовать нельзя, но с основной идеей проги Вы меня успокоили...