Паскаль! 1. задать случайным образом 10 чисел от 22 до 135. напечатать те из них, которые больше 100. 2. задать с клавиатуры а и n. напечатать значение а в степени n. 3. задать с клавиатуры n. напечатать значение n! = 1*2*3*4**n. 4. напечатать большие буквы в строчку через 2 пробела. 5. напечатать маленькие буквы в 2 строчки: от "я" до "р", от "п" до "а". 6. ввести с клавиатуры 5 значений для х. вычислить и напечатать для каждого из них значение y по правилу: а) б) 3*x, если x< =-9 x/10, если x< =-9 y = x-8, если -9 3*x, если x> =9 x/10, если x> =9 7.напечатать маленькие буквы в столбик от "z" до "а".

Pascalabc.net 1)   const      n = 10;   var     a : array [1..n] of integer;     i : integer;   begin      randomize;       for i : = 1 to n do      begin        a[i] : = 22 + random(114);         if a[i] > 100 then        writeln (a[i]);         end;     end.2)  var    a,n,r,i : integer;         begin    r : = 1;     readln (a,n);     for i : = 1 to n do      r : = r * a;   writeln (r);       end.3)  var    n,i,r : integer;       begin    r : = 1;     readln (n);     for i : = 1 to n do    r : = r *i;     writeln (r);     end.4)  var    i : integer;   begin  for i : = 192 to 223 do    write(chr(i);   ,'   ');   end.5)  var    i : integer;         begin     for i : = 255 downto 240 do    write (chr(i),' ');       writeln();       for i : = 239 downto 224 do    write (chr(i),' ');         end.7)  var    i : integer;   begin  for i : = 122 downto 97 do    writeln(chr(i));   end.

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