Паскаль! 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.

print("1-прямоугольник, 2-треугольник, 3-круг")

figure = input("Выберите фигуру: ")

if figure == '1':

   print("Длины сторон прямоугольника:")

   a = float(input("a = "))

   b = float(input("b = "))

   print("Площадь: %.2f" % (a * b))

elif figure == '2':

   print("Длины сторон треугольника:")

   a = float(input("a = "))

   b = float(input("b = "))

   c = float(input("c = "))

   p = (a + b + c) / 2

   from math import sqrt

   s = sqrt(p * (p - a) * (p - b) * (p - c))

   print("Площадь: %.2f" % s)

elif figure == '3':

   r = float(input("Радиус круга R = "))

   from math import pi

   print("Площадь: %.2f" % (pi * r ** 2))

else:

   print("Ошибка ввода")

Объяснение:

1-прямоугольник, 2-треугольник, 3-круг

Выберите фигуру: 2

Длины сторон треугольника:

a = 4

b = 5

c = 6

Площадь: 9.92

#include< iostream.h> using namespace std; into main(){int array[15]; int a = 0; // число пятёрок; // тут заполняем из промежутка от -20 до 20 for(int i = 0; i < 15; i++) {     if (array[i] == 5)     {     a++;           for( int j = i ; j < 15 - 1; j++ )         {         array[j] = array[j+1] ;         }     } } cout < < "удаленно: " < < a < < " чисел"; return 0; }