Определите, какое число будет выведено на экран в результате выполнения программы: var number, maxNumber, sum, count, digit, n: integer; maxSum: real; begin maxSum := 0; maxNumber := 0; for number := 80 to 100 do begin sum := 0; count := 0; n := number; while n > 0 do begin digit := n mod 10; sum := sum + digit; n := n div 10; count := count + 1; end; if (count > 0) and (sum / count > maxSum) then begin maxSum := sum / count; maxNumber := number; end; end; writeln(maxNumber); end.
Задание

Определите, какое число будет выведено на экран в результате выполнения программы:

var
number, maxNumber, sum, count, digit, n: integer;
maxSum: real;
begin
maxSum := 0;
maxNumber := 0;
for number := 80 to 100 do begin
sum := 0;
count := 0;
n := number;
while n > 0 do begin
digit := n mod 10;
sum := sum + digit;
n := n div 10;
count := count + 1;
end;
if \(count \\gt 0\) and \(sum / count \\gt maxSum\) then begin
maxSum := sum / count;
maxNumber := number;
end;
end;
writeln\(maxNumber\);
end.