Программа на паскале: var number, firstDigit, lastDigit, maxDigit: longint;
begin read(number); lastDigit := number mod 10; write('Нечетные цифры числа: '); while number > 9 do begin if number mod 2 = 1 then write(number mod 10, ' '); if number mod 10 > maxDigit then maxDigit := number mod 10; number := number div 10; end; if number mod 2 = 1 then write(number); if number mod 10 > maxDigit then maxDigit := number mod 10; firstDigit := number; writeln; writeln('Первая цифра числа - ', firstDigit); writeln('Последняя цифра числа - ', lastDigit); writeln('Наибольшая цифра числа - ', maxDigit); end.
Var maxd,n,m,lst: integer; begin { считываем с экрана } readln(n); maxd:=0; { последняя цифра } lst:=n mod 10; { цикл по количеству цифр в числе } while true do begin m:=n mod 10; if (m mod 2 =1) then writeln('нечет. цифра = ',m); if maxd < m then maxd:=m; n:=n div 10; if (n=0) then begin writeln('первая цифра = ',m); break; end; end; writeln('последняя цифра = ',lst); writeln('максимальная цифра = ',maxd); end.
