В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Pandochka7771
Pandochka7771
03.09.2022 20:57 •  Информатика

В одной из кодировок Unicode каждый символ кодируется 2 байтами. Незнайка написал текст (в нём нет лишних пробелов):

«Села Чувашии: Батырево, Киря, Сойгино, Айбечи, Тойси, Сотниково, Вурманкасы, Эльбарусово, Трехбалтаево».

Затем он добавил в список название ещё одного животного. Заодно он добавил необходимые запятые и пробелы. При этом размер нового предложения в данной кодировке оказался на 144 бит больше, чем размер исходного предложения. Напишите в ответе название добавленного населенного пункта.

Показать ответ
Ответ:
светилек
светилек
18.09.2022 18:45

var

  N: array [1..15] of 1..15; {Массив, в который записываются номера положительных элементов массива х}

  x: array [1..15] of real; //Массив х

  i: integer; //Переменная для цикла

  Number: integer; //Сколько номеров было записано

begin

  Number:= 0; //Обнуляем счетчик номеров

  for i:= 1 to 15 do   //Вводим с клавиатуры массив х

  begin

    writeln('Введите ', i, ' элемент массива х');

    readln(x[i]);

    if x[i] > 0 then  {Если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива N номер элемента}

    begin

      Number:= Number + 1;

      N[Number]:= i;

    end;

  end;

  write('Номера положительных элементов массива х:  ');

  for i:= 1 to Number do write(n[i], '  '); //Выводим записанные номера элементов

  writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

 

0,0(0 оценок)
Ответ:
Alexa9711
Alexa9711
12.03.2023 07:14
/*Дано трехзначное число. Найти сумму и произведение его цифр. Вывести число, полученное при прочтении исходного числа справа налево. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213). Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).*/ #include <stdio.h> #include <clocale> void sp (int); //функция нахождения суммы и произведения цифр void sprnl (int); //функция прочтения числа справа налево void pervsl (int); //функция 3 :D void pervsp (int); //функция 4 :P void sotdes (int); //функция перестановки сотен и десятков void desedin (int); //функция перестановки десятков и единиц int main() { setlocale (2, ".1251"); int num; do { printf ("Введите число: "); while (!(scanf("%d", &num)) || num < 100 || num > 999) { fflush(stdin); printf ("\nОшибка. Введите заново: "); } sp (num); sprnl (num); pervsl (num); pervsp (num); sotdes (num); desedin (num); printf ("\n\n"); } while (1); return 0; } void sp (int a) { int sum=0, mult=1; while (a) { sum+=a%10; mult*=a%10; a=a/10; } printf ("\n\nСумма цифр равна: %d", sum); printf ("\nПроизведение цифр: %d", mult); } void sprnl (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПеревернутое число: %d", 100*a+10*b+c); } void pervsl (int num) { int a, b; a=num%100; b=num/100; printf ("\nЗачеркнули первую слева цифру и приписали ее справа: %d", a*10 + b); } void pervsp (int num) { int a, b; a=num%10; b=num/10; printf ("\nЗачеркнули первую справа цифру и приписали ее слева: %d", a*100 + b); } void sotdes (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПерестановка сотен и десятков: %d", b*100 + c*10 + a); } void desedin (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПерестановка десятков и единиц: %d", c*100 + a*10 + b);
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота