Задали , но в ней почти ничего не понял: паскаль. введите любое число и выведите на экран наибольшую цифру в числе. например ввожу 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; тем самым мы нашли количество цифр в числе, а вот что делать дальше я не знаю(
Можно просто сравнивать соседние числа.
---
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.