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

Question

Информатика

Филюша

18 декабря, 00:51

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

+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.