Составьте программу определения наибольшей цифры в записи данного натурального числа.

Question

Другие предметы: Составьте программу определения наибольшей цифры в записи данного натурального числа.

dashakechenkova · Answer

Var   n: Integer;   min,max: Byte; BEGIN Writeln( Введите число: ); Readln(n); max:=0; min:=9; While n 0 do begin   If n mod 10 max Then max:=n mod 10;   If n mod 10 min THen min:=n mod 10;   n:=n div 10; end; Writeln( MAX= ,max); Writeln( MIN= ,min); END....

Составьте программу определения наибольшей цифры в записи данного натурального числа.

Популярные вопросы