Задали , но в ней почти ничего не понял: паскаль. введите любое число и выведите на экран наибольшую цифру в числе. например ввожу 5683, а он мне должен вывести: 8. начало программы я допер: program z1; var n: integer; begin k: =0; writeln('введите любое число'); readln(n); while n< > o do begin n: =n div 10; k: =k+1; end; тем самым мы нашли количество цифр в числе, а вот что делать дальше я не знаю(

1232956 1232956    3   28.05.2019 17:20    3

Ответы
imputedchimi imputedchimi  26.06.2020 11:15
А зачем нам, собственно, находить количество цифр в числе?
Можно просто сравнивать соседние числа.
---
uses crt;
var a,k,max:integer;
begin
     readln(a);
     while a>0 do
     begin
          k:=a mod 10;
          if k>max then max:=k;
          a:=a div 10;
     end;
     writeln(max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика