Pascalabc.net 1. скласти програму, яка передбачала б введення послідовності символів та визначити кількість цифр у даній послідовності 2. дано послідовності символів: замінити кожну крапку послідовності трьома крапками.

Не знаю, на каком языке ты программируешь... я написал на C#
 using System;
namespace ConsoleApplication55{    class Program    {        static void Main(string[] args)        {            link:            Console.Write("Введите кол-во элементов  числовой последовательности: ");            int kol = Convert.ToInt32(Console.ReadLine());            if (kol > 100 || kol < 0)                goto link;            Random ran = new Random();            int[] array = new int[kol];            Console.WriteLine("\nПоследовательность чисел в строчку: ");            for (int i = 0; i < array.Length; i++)            {                array[i] = ran.Next(1, 1000);                Console.Write(array[i] + " ");            }            Console.Write("\n\nПоследовательность чисел, где каждое с новой строки:\n");            for (int i = 0; i < array.Length; i++)                Console.Write(array[i] + "\n");            Console.ReadKey();        }    }}
Смысл такой: ты делаешь массив, размер которого указываешь в начале, потом загружаешь  него рандомные(случайные) числа с периодом от 1 до 1000. После этого выводишь с цикла for элементы с условием, что после каждого элемента будет перевод строки(в С# это "\n"), в Паскале это writeln и т.д.

Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.