Потому что библиотека находилась в одном месте, а пожар был в другом конце царского дворца. В любом случае, если бы пожар охватил место, так называемой библиотеки, то вряд ли причинил ей значительный ущерб, поскольку библиотека предстваляла из себя глиняные таблички. Всего во дворце было найдено около 30 тыс. небольших глиняных табличек разнообразной формы, они образовали целый пласт высотой в полметра. Таблички были исписаны очень мелкими клинообразными знаками. Такой клинописью пользовались в древности народы Междуречья. Каждый значок этого письма состоял из клинышков в разных сочетаниях и обозначал слог или слово. Для лучшей сохранности глиняные плитки были обожжены или высушены на солнце.
var x: array[1..n] of integer; i, k, d, s: integer;
begin Randomize; Writeln('Элементы массива'); k := 0; s := 0; for i := 1 to n do begin d := Random(11) - 5; Write(d:3); if (i mod 2) = 0 then begin { четное место } if d = 1 then Inc(k); x[i] := d end else begin if d < 0 then s := s + d; x[i] := sqr(d) end end; Writeln; Writeln('Результирующий массив'); for i := 1 to n do Write(x[i]:3); Writeln; Writeln('Количество единиц на четных местах равно ', k); Writeln('Сумма отрицательных элементов на нечетных местах равна ', s) end.
Тестовое решение: Элементы массива -3 0 -5 1 5 1 -3 -4 5 -3 -2 Результирующий массив 9 0 25 1 25 1 9 -4 25 -3 4 Количество единиц на четных местах равно 2 Сумма отрицательных элементов на нечетных местах равна -13
var x, F: real; begin write('Введите х: '); readln(x); if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x) else F := 4; writeln('F = ', F); end.
№2
var x, F: real; begin write('Введите х: '); readln(x); if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x) else F := 1; writeln('F = ', F); end.
№3
var a,b,c: real; begin write('Введите а: '); readln(a); write('Введите b: '); readln(b); write('Введите c: '); readln(c); if ( a < b ) AND ( b < c ) then writeln('a < b < c') else if ( b > a ) AND ( a > c ) then writeln('b > a > c') else writeln('Неравенства не выполняются'); end.
