Ответы
Ответ дал:
16
Program prog;
uses crt;
var x,y:integer;
begin
clrscr;
write ('x = ');
readln(x);
while abs(x)>0 do begin
if abs(x mod 10)>y then y:= abs(x mod 10);
x:= x div 10;
end;
writeln('Наибольшая цифра чсла = ', y);
end.
uses crt;
var x,y:integer;
begin
clrscr;
write ('x = ');
readln(x);
while abs(x)>0 do begin
if abs(x mod 10)>y then y:= abs(x mod 10);
x:= x div 10;
end;
writeln('Наибольшая цифра чсла = ', y);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад