Задали , но в ней почти ничего не понял: паскаль. - вопрос №2104186 от KV4 08.04.2023 20:57

Question

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

KV4 · Answer

А зачем нам, собственно, находить количество цифр в числе?
Можно просто сравнивать соседние числа.
---
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.