Ответы
Ответ дал:
1
Program max;
uses crt;
var n, x:integer;
begin
clrscr;
Write('N = ');
readln(n);
while abs(n)>0 do
begin
if abs(n mod 10) > x then
x:= abs(n mod 10);
n:=n div 10;
end;
write('Наибольшая цифра x = ', x);
end.
uses crt;
var n, x:integer;
begin
clrscr;
Write('N = ');
readln(n);
while abs(n)>0 do
begin
if abs(n mod 10) > x then
x:= abs(n mod 10);
n:=n div 10;
end;
write('Наибольшая цифра x = ', x);
end.
Vladlen17:
Можно проще! Чем меньше кода-тем лучше)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад