Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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.