Ввести четырехзначное число.заменить в нем первую цифру на разность первой и последней цифр, если разность положительна на q basic.

инструкция1создайте таблицу и занесите в нее данные, на основе которых вы будете строить гистограмму.

2выделяйте произвольно выбранную ячейку из этой таблицы. в меню «вставка» выбирайте опцию «диаграмма» или нажмите на иконку «мастер диаграмм» на панели инструментов. чтобы создать гистограмму с установками по умолчанию, после выделения ячейки нажмите f11. гистограмма будет создана на отдельном листе.

3выбирайте из списка тип «гистограмма». в разделе «вид» укажите ее подтип. в нижнем окне отображается подсказка-описание, которая вам сделать выбор. нажмите на кнопку «результат», чтобы увидеть, как будет выглядеть гистограмма на основе ваших данных. перейдите во вкладку «нестандартные», если хотите создать пользовательскую гистограмму – например, в комбинации с графиком или с областями. для продолжения построения нажмите «далее».

4в следующем окне вы должны указать диапазон данных для построения гистограммы. по умолчанию используется вся таблица. выделяйте те ячейки, содержимое которых должно отображаться в гистограмме. в поле «диапазон» диалогового окна укажите нужные значения. с переключателя «ряды в» определите, какой параметр будет указан по оси абсцисс – столбцы или строки. нажмите «далее» для продолжения.

5в окне «параметры диаграммы» на вкладке «заголовки» укажите название вашей гистограммы и осей, если сочтете нужным. переходя по вкладкам, вы можете оформить рисунок в соответствии с работой, которую он должен иллюстрировать. в окне просмотра отображаются все изменения, которые вы вносите. чтобы продолжить работу, нажмите «далее».

6в последнем шаге укажите редактору excel, где вы предполагаете разместить гистограмму – внедрить ее в рабочий лист или разместить на отдельном листе. установите переключатель в нужное значение и нажмите «готово» для завершения работы.

var  x, n: integer; begin  write('n = ');   readln(n);   x : = n mod 10;   n : = n div 10;   while n > 0 do  begin    if n mod 10 < x then    begin      writeln('последовательность по возрастанию');       readln;       exit;     end;     x : = n mod 10;     n : = n div 10;   end;   writeln('последовательность по возрастанию');   readln; end.