Выполнить , связанные с turbo pascal: 1) какой оператор позволяет менять значения переменных и вычислять значения выражений? 2) выполнить алгоритм при x=345: начало ввод x a=x div 100 b=x div 10 mod 10 c=(a+b)/2 вывод a вывод b вывод c конец 3)что появится на экране после выполнения фрагмента программы: a: =7; b: =5; a: =a-b; writeln(b-a*2); writeln('a=', a, 'b=', b); 4) дана сторона квадрата, найти его периметр. 5) дано трёхзначное число. в нём зачеркнули последнюю справа цифру иприписали её в начале. найти полученное число. * 4 и 5 решить на языке программирования, используя функции.

1) присвоения : =2)343,5  3) 1a=2 b=5var a,x,x1,x2,x3: integer; begin      read(a);       writeln('4. s=',4*a);             read(x);       x3: =x mod 10;       x1: =x div 10;       writeln('5. x=',x3*100+x1); end.

           int[] array = { 10, -5, 3, 2, 0, -1, 8, 0, 10, 3 };

           int[] nums = new int[2];

           foreach( int i in array)

           {

               if (i > 0) nums[0] += 1;

               else if (i < 0) nums[1] += 1;

           }

           Console.WriteLine($"Количество положительных элементов массива = {nums[0]}, отрицательных = {nums[1]}");

           Console.ReadKey();

Объяснение:

Инициализируем массив целых чисел и массив из двух элементов для кол-ва отрицательных и положительных чисел.

С цикла foreach проходимся по каждому элементу массива и проверяем отрицательный ли он или положительный. Результатом прибавляем единицу в соответствующую ячейку массива для подсчета отрицательных и положительных чисел.

Поиграйтесь, возможно есть ошибки

Объяснение:

a = ["", "один","два","три","четыре","пять","шесть","семь","восемь","девять"]

b = ["", "десять","двадцать","тридцать","сорок","пятьдесят","шестьдесят","семьдесят","восемьдесят","девяносто"]

c = ["", "сто","двести","триста","четыреста","пятьсот","шестьсот","семьсот","восемьсот","девятьсот"]

d = ["", "одинадцать","двенадцать","тринадцать","четырнадцать","пятнадцать","шестнадцать","семьнадцать","восемнадцать","девятнадцать"]

x = int(input("Введите ваше число (0-1000): "))  

if len(str(x)) >= 4:

   if x != 1000:

       print("Не более 1000!")

   elif x == 1000:

       print("Тысяча")

   else:

       print("Очень странная ошибка!")

   

elif len(str(x)) >= 1:

   if len(str(x)) == 1:

       print(a[x])

   elif len(str(x)) == 2:

       aa = str(x)[0]

       bb = str(x)[1]

       if aa == str(1):

           print(d[int(bb)])

       else:  

           print(b[int(aa)] + " " + a[int(bb)])

       

   elif len(str(x)) == 3:

       aa = str(x)[0]

       bb = str(x)[1]

       cc = str(x)[2]

       if bb == str(1):

           print(c[int(aa)] + " " + d[int(cc)])

       else:

           print(c[int(aa)] + " " + b[int(bb)] + " " + a[int(cc)])

       

elif x == None:

   print("Не оставляй пустым!")