нужно! 1. с клавиатуры вводится натуральное число n. найдите и выведете самую большую цифру этого числа. 2. массив целых чисел вводится до нуля. затем вводится число n. определите, какое количество раз число n встречается в массиве.
Программа выводит максимальную цифру числа: Program maxx; uses crt; var x,max:integer; begin write('введите число x=');readln(x); max:=0; while x>0 do begin if max<(x mod 10) then max:=(x mod 10); x:=x div 10 end; writeln('max=',max); end.
Program maxx;
uses crt;
var x,max:integer;
begin
write('введите число x=');readln(x);
max:=0;
while x>0 do
begin
if max<(x mod 10) then max:=(x mod 10);
x:=x div 10
end;
writeln('max=',max);
end.