profile
Опубликовано 6 лет назад по предмету Информатика от touran

напишите функцию которая возвращает: наибольшую цифру в десятичном представлении целого числа n>0;
2)Корень уравнения ax+b=0; P.S исправляю хвосты))))

  1. Ответ
    Ответ дан Nikita19010
    1)
    function numb(n:integer):integer;
       var
           n,ch,st,max:integer;
       begin
          st:=1;
          max:=-1;
          ch:=n mod 10;
          n:=n div 10;
          while(n>0)do
             begin
                 ch:=ch+(n mod 10)*st;
                 n:=n div 10;
                 st:=st*2;
              end;
           while(ch>0)do
               begin
                    if(ch mod 10>max)then
                         max:=ch mod 10;
                    ch:=ch div 10;
               end;
           numb:=max;
    end;
    2)
    function yravn(a,b:integer):integer;
       begin
          yravn:=-b div a;
       end;
Самые новые вопросы
Julia2101
Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

na2005stud
Информатика - 6 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

Оксаночка1233
География - 6 лет назад

Почему япония - лидер по выплавке стали?

Анимешка2
Математика - 6 лет назад

Чему равно: 1*(умножить)х?     0*х?

laraizotova
Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла. 

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.