Uses crt;var s,i,n:integer; a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0; for i :=1 to n do begin a[i]:=(random(2000)-1000)/10; write('a[',i,']=',a[i],'; '); end; for i :=1 to n-1 do begin if a[i]>a[i+1] then s:=s+1; end; if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.
за 30 мин ученик прочитает 160*30 = 4800 символов.
если 1 мисвол кодируется 1 байтом (кодировка Windows), то информационный объем составит 4800байт = 4,7Кб
если 1 символ кодируется 2 байтами (кодировка Unicode), то информационный объем составит 9600байт = 9,4Кб
1 задача.
Дом1-Алексей,столяр.
Дом2-Виктор,хирург.
Дом3-Михаил,окулист.
Дом4-Егор,токарь.
Узнаем, насколько сместится чертёжник после выполнения цикла (вторая и третья команда):
x = (3 + 1) × 3 = 12
y = (3 - 2) × 3 = 3
После выполнения всего алгоритма (без команды 1):
x = 12 - 6 = 6
y = 3 + 9 = 12
Чертёжник вернётся в исходную позицию, если задать команду так, чтобы при выполнении этой команды трижды (ведь цикл повторяется три раза) чертёжник сместился на (-6, -12).
x = -6 ÷ 3 = -2
y = -12 ÷ 3 = -4
Ответ: (-2, -4)