Не получается записать правильно. , Я думаю, что сначала переменную div 10, после чего результат mod 10. А дальше сравнить. Ка

16.03.2017
Без рубрики

Не получается записать правильно. Помогите, пожалуйста
Я думаю, что сначала переменную нужно div 10, после чего результат mod 10. А дальше сравнить. Как это написать? 

  • var a,b,c:integer;
    function mid (const n:integer):integer;
     begin
       mid:=(n div 10) mod 10;
     end;
    begin
      readln (a,b,c);
      if (mid(a)>mid(b)) and (mid(a)>mid(c)) then writeln (a) else
       if (mid(b)>mid(a)) and (mid(b)>mid(c)) then writeln (b) else writeln (c);
    end.
  • var a,b,c,x:integer;beginreadln(a,b,c);if (a>999) or (a999) or (b999) or (bb) and (a>c) thenwriteln(a);if (b>a) and (b>c) thenwriteln(b);if (c>a) and (c>b) thenwriteln(c);

    end.