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

Составить программу для нахождения произведения кратных 7 находящегося в промежутке [f, s].
Язык паскаль

Показать ответ
Ответ:
АлёнаКож
АлёнаКож
07.08.2020 08:45
1. Это сведения, знания, сообщения о положении дел, которые человек воспринимает из окружающего мира с органов чувств (зрения, слуха, вкуса, обоняния, осязания).
2. Текстовая, числовая, графическая, звуковая, комбинированная.
3. Процессы получения, создания, сбора, обработки, хранения, накопления, поиска, представления, использования и распространения информации. Основные виды: хранение, передача, обработка информации.
4. Количество символов, используемых в алфавите.
5. Бит, байт, кбайт, мбайт, гбайт.
6. N = 2^i, где
N - мощность алфавита;
I - количество бит на символ.
7. Единицы измерения: 1 байт = 8 бит.
8. Информация, хранящаяся на внешнем носителе и объединенная общим именем.
9. Программы, которые обеспечивают управлением работы устройств и согласовании информационного обмена с другими устройствами.
10. Компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны. 10. 32 бита = 4 байта, 2,5 кбайта = 2560 байта, 3 кбайта = 24576 бит, 6 байт = 48 бит.
0,0(0 оценок)
Ответ:
WovenLion1
WovenLion1
17.01.2023 06:10
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var mn:=Arr('январь','февраль','март','апрель','май','июнь',
      'июль','август','сентябрь','октябрь','ноябрь','декабрь');
  var n:=ReadInteger('Номер месяца');
  case n of
  12,1,2:Write('Зима');
  3,4,5:Write('Весна');
  6,7,8:Write('Лето');
  9,10,11:Write('Осень');
  else begin
    Writeln('Неверный номер');
    exit
    end
  end;
  Writeln(', ',mn[n-1],', предшествующий ',n=1?mn[11]:mn[n-2],
      ', следующий ',n=12?mn[0]:mn[n])
end.

Пример
Номер месяца 2
Зима, февраль, предшествующий январь, следующий март
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота