Pascal. Тема: Циклы

С клавиатуры вводится целое произвольное число

1) Вывести на экран первую и последнюю цифру числа.

2) Вывести на экран наибольшую цифру числа

3) Вывести на экран нечетные цифры этого числа

Программа на паскале:

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.