Что значит этот шифр? vk co ff ee 7a 54 69 6d 7a 2f 4e 37 6f 5a 59 78 71 78 6f 66 61 44 32 44 39 51 38 65 78 77 49 54 64 76 4f 42 4f 39 4f 65 2b 58 4d 71 61 51 74 58 45 78 72 61 79 4b 44 67 57 45 4f 37 32 49 61 46 6d 6b 76 5a 45 77 2b 6f 74 41 4f 77 48 30 42 70 65 51 4a 49 46 68 6d 67 59 4f 37 67 71 4e 64 46 4a 5a 71 70 39 67 67 77 4a 7a 64 4a 47 49 6d 34 62 48 71 70 64 67 62 71 69 4a 56 38 68 36 67 62 4a 67 63 75 37 51 46 68 4d 2f 59 33 57 70 4c 6b 5a 73 6b 71 42 79 56 6c 67 4c 49 75 61 74 4e 74 79 34 51 77 44 69 42 6a 34 6c 62 70 74 2b 6b 3d vk co ff ee​

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  Font.Size:=Trunc(Font.Size*1.5); // размер шрифта 150%
  Font.Color:=clBlack; // цвет шрифта
  Window.Clear(clWhite); // залить окно цветом
  Brush.Color:=clWhite; // фон текста
  Font.Name:='Arial'; // имя шрифта
  Writeln('Arial font');
  Font.Name:='Times'; // имя шрифта
  Writeln('Times font');
  Font.Name:='Verdana'; // имя шрифта
  Writeln('Verdana font');
  Font.Name:='Broadway'; // имя шрифта
  Writeln('Broadway font');
end.

program Find33;

uses  SysUtils;

const

 L = 100;    // количество чисел, можно изменить на любое значение

var

 i, j, c, cnt: Integer;

 A: array [1..L] of Integer;  // массив для сохранения чисел

 s: string;

begin

 WriteLn ('Массив трехзначных чисел: ');  // вывод на экран сообщения

 Randomize;                               // инициализация датчика случайных чисел

 for i := 1 to L do begin

   A [i] := 100 + Random (900);           // заполняем массив случайными трехзначными числами

   Write (A [i], ' ');                    // выводим их все на дисплей

 end;

 cnt := 0;                                // счетчик чисел с двумя тройками

 WriteLn ('Найдены числа:');

 for i := 1 to L do begin                 // цикл перебора всех элементов массива

   s := IntToStr (A [i]);                 // трехзначное число преобразуем с символьную строку

   c := 0;                                // счетчик троек в числе

   for j := 1 to Length (s) do begin      // цикл перебора всех символов строки

     if s [j] = '3' then begin            // если тройка, то инкремент счетчика троек

       c := c + 1;

     end;

   end;

   if c >= 2 then begin                    // если в числе хотя бы две тройки, то вывод числа и инкремент счетчика чисел

     cnt := cnt + 1;

     WriteLn (A [i]);

   end;

 end;

 WriteLn ('Количество чисел, у которых хотя бы две тройки = ', cnt);  // вывод результата

 ReadLn;                                   // ждать нажатия Enter

end.

Объяснение: комментарии в программе