М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ark2006panozs0he
ark2006panozs0he
20.01.2020 12:43 •  Информатика

Что значит этот шифр?

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​

👇
Открыть все ответы
Ответ:
nikolay2045
nikolay2045
20.01.2020
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.
4,6(11 оценок)
Ответ:
aya121
aya121
20.01.2020

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.

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

4,4(98 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ