Дано натурально число. определить две максимальные цифры числа. паскаль

Question

Информатика

Манюра

9 октября, 03:49

Дано натурально число. определить две максимальные цифры числа. паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Каллимах · Answer 1

Program Pr1;

var a:integer;

Begin

readln (a) ;

writeln ('Posl. - ', a mod 10) ;

while a div 10 0 do a:=a div 10;

writeln ('Perv. - ', a) ;

end.