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

ne1naiioo111 ne1naiioo111    3   16.06.2019 17:50    2

Ответы
Annnnnnnnnnнnna Annnnnnnnnnнnna  13.07.2020 15:56
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика