• Вопрос по информатике:

    Дано натуральное число N . Определить наименьшую и наибольшую цифры данного числа (Pascal ABC)

    • Автор:

      regina72

  • Ответ:

    var s:string; max,min:char;begin   write('Введите число: '); readln(s);   max:=s[1]; min:=s[1];    for var i:=2 to s.Length do  begin       if min>s[i] then min:=s[i];       if max<s[i] then max:=s[i];    end;      writeln('max = ',max);   writeln('min = ',min);  end.

    • Отвечал:

      masterue0j
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска