| Автор | помогите с pascalABC |
|---|
задача такая:найдите наибольшую цифру числа с использованием оператора WHILE
задачу решить для любого числа |
в гвд нет программистов?
за правильное решение будет награда |
за правильное решение будет награда
а вот это уже запрещено |
| для medmax-lg-2:я шучу) |
Var
SourceNumber: longint;
MaxDigit: byte;
Begin
MaxDigit:=0;
readln(SourceNumber);
while SourceNumber>0 do
begin
if (SourceNumber mod 10)>MaxDigit then MaxDigit:=(SourceNumber mod 10);
SourceNumber:=(SourceNumber div 10)
end;
End. |
А, ну да, забыл самое главное :-)
Var
SourceNumber: longint;
MaxDigit: byte;
Begin
MaxDigit:=0;
readln(SourceNumber);
while SourceNumber>0 do
begin
if (SourceNumber mod 10)>MaxDigit then MaxDigit:=(SourceNumber mod 10);
SourceNumber:=(SourceNumber div 10)
end;
writeln(MaxDigit);
repeat until keypressed
End. |
