Вводится последовательность целых ненулевых чисел, признак окончания ввода – ввод 0. определить является ли последовательность возрастающей. Pascal ABC
Sub Ìàêðîñ1() Dim Sum(heigth - 1, width - 1) Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1 For j = 0 To width - 1 Sum(i, j) = i + j Product(i, j) = i * j Next j Next i
Call Show(Sum, 0, 0) Call Show(Product, 0, 12) End Sub
Sub Show(ByRef m, dx, dy) For i = 0 To heigth - 1 For j = 0 To width - 1 ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j)) Next j Next i End Sub
Если не ошибаюсь ответ г Автоматическое форматирование — это средство Word для анализа частей документа и распознавания отдельных элементов, таких как основной текст, заголовки, маркированные списки и др. Word может применить соответствующие стили к различным элементам текста для создания отформатированного документа. (О стилях вы узнали в уроках 12 и 13). Вы можете принять или отвергнуть автоматически предложенный формат, частично или в целом, и позже внести необходимые изменения в документ. Кроме применения стилей, автоматическое форматирование удаляет лишние пробелы между абзацами, автоматически форматирует адреса Internet, ллектронной почты и сетевые адреса как гиперссылки, выделяет полужирным начертанием или подчеркиванием текст, ограниченный звездочками (*) или символами подчеркивания (_), заменяет два дефиса (--) одним тирс II Т. Д.
Если тут нужна программа.
Объяснение:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n,m,k,a,max:integer;
begin
clrscr;
n:=1; a:=0;
min:=-32700;
While n<>0 do
begin
write('Введите число'); read(n); writeln(n); m:=n;
If min<m then begin k:=0; max:=m end else begin k:=1; a:=k; end;
end;
readln;
If a=1 then Writeln('Последовательность не возрастающая')
else
writeln('Последовательность возрастающая');
readln
end.