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

Кодирование путем повторения символов. Вводится m – нечетное число, задающее кратность повторения, а также последовательность двоичных символов произвольной длины. Программа проверяет нечетность числа m и выдает сообщение об ошибке, если m – четное. В противном случае формируется и выводится на экран результирующая последовательность, в которой каждый символ входной последовательности повторяется m раз подряд.

👇
Открыть все ответы
Ответ:
Алиса345780
Алиса345780
27.04.2023
1) Цикл от 2 включительно, до 20 включительно.
2) Видим первое условие: i>=3 и i<=8 соответственно, когда циклическая переменная будет равна 3 (i=3) будет выполнено условие.
А также при i=9 условие не будет выполняться.
3) Видим второй блок условий. Они подразумевают, что квадрат переменной не должен быть выше границы в 20 единиц. Берем на заметку, что квадрат 5 равен 25, что является подходящим под условие и принудительно завершит цикл.
4) Итак, при первом цикле переменная равна 2. Ни одно из условий не выполниться. При i=3 выполниться первое условие и сумма увеличиться на остаток от деления i на 2, т.е. на 1. Это условие будет выполняться до 5, позже цикл прервёт второе условие. Значит необходимо посчитать остатки от деления i (3..5) на 2.
ответ: 2
4,8(5 оценок)
Ответ:
Perchyn0601
Perchyn0601
27.04.2023
// PascalABC.NET 3.2, сборка 1514 от 11.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введитие координаты точки');
  if (x<0) and (y>0) then Writeln('Точка лежит во II четверти')
  else Writeln('Точка не лежит во II четверти')
end.

Пример
Введитие координаты точки -4.6 7
Точка лежит во II четверти

begin
  var n:=ReadInteger('Введите двухзначное число');
  if n div 10+n mod 10>9 then Writeln('Сумма цифр больше девяти')
  else Writeln('Сумма цифр не больше девяти')
end.

Примеры
Введите двухзначное число 47
Сумма цифр больше девяти

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