• 
  • 20 March 2011
  Английский язык
  • Автор: Маня33

  

  дано натуральное число n. определить на сколько его максимальная цифра больше минимальной

• 
  • 20 March 2011
  • Ответ оставил: xXxAikaxXx

  Program max_min;
  Var n, c, max, min:integer;
  Begin
  write('Введите натуральное число:');
  readln(n);
  c:=n mod 10;
  max:=c; min:=c;
  n:=n div 10;
  if n=0 then writeln('Число - однозначное.');
  while n>0 do
  begin
  c:=n mod 10;
  if c>max then max:=c;
  if c<min then min:=c;
  n:=n div 10;
  end;
  writeln('Максимальная цифра ',max,' больше минимальной ',min,' на ',max-min);
  end.

  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (23.04.2024) наш сайт содержит 244790 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы