Вычислите значение в циклическом алгоритме var s, k: integer; begin s : = 0; for k : = 3 to 8 do s : = s + 9; writeln(s); end.

Чтобы решить,достаточно написать в программу паскаль. ответ:54

var
  l,a,b:integer;
  s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
   begin
   a:=pos('(',s);
   b:=pos(')',s);
   if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
   if (a=0) and (b>0) then writeln('Скобка не открыта');
   if (a>0) and (b=0) then writeln('Скобка не закрыта');
   if (a=0) and (b=0) then writeln('Текста в скобках нет');
  end;
end.

var
  n,i,k:integer;
  s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
  i:=pos(' ',t);
  delete(t,1,i);
  until i=0;
k:=length(t);
for i:=1 to k do
  if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
end.

--- C# 7.3 ---

using System;

using System.Collections.Generic;

using System.Linq;

namespace CSLear

{

   class Program

   {

       private const int stdRow = 5;

       private const int stdCols = 6;

       static void Main(string[] args)

       {

           int[,] Arr = new int[stdRow, stdCols];

           ArrayRandomize(ref Arr, stdRow, stdCols);

           RemoveFirstRow(ref Arr, stdRow, stdCols);

           Console.ReadKey();

       }

       public static void RemoveFirstRow<T>(ref T[,] Matr, int ArrRows, int ArrCols)

       {

           T[,] Temp = new T[ArrRows-1,ArrCols];

           for (int i = 1; i < ArrRows; i++)  

           {

               for (int j = 0; j < ArrCols; j++)

               {

                   Temp[i - 1, j] = Matr[i, j];

               }

           }

           Matr = Temp;

       }

       public static void ArrayRandomize(ref int[,] Arr, int ArrRows, int ArrCols)

       {

           Random r = new Random();

           for (int i = 0; i < ArrRows; i++)

           {

               for (int j = 0; j < ArrCols; j++)

               {

                   Arr[i, j] = r.Next(-99, 99);

               }

           }

       }

   }

}

Объяснение: