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

Даны 6 чисел. найти сумму нечётных из них. составить блок схему. ​

Показать ответ
Ответ:
DPAKOSHKA
DPAKOSHKA
03.05.2021 16:57
Информация, выводимая любой программой должна быть легко читаемой, понятной для пользователя. Для этого, в частности, нужно, чтобы действительные числа были выведены в алгебраической форме, как число с точкой, а также в записях содержались пробелы, отделяющие числа от текста и др. Для этого в языках программирования используются форматы вывода. 
При использовании форматов для вывода значений в текстовые файлы или на экран около имени, выводимого данного явно указывается размер поля для размещения его значения (после знака :), в виде переменная:ширина поля.
Источник : http://physic.kemsu.ru/pub/library/learn_pos/Free_Pascal/Free%20Pascal/soder/3_1_2.htm
0,0(0 оценок)
Ответ:
лерка123456789й
лерка123456789й
17.09.2022 15:41
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  n, k, сч, мин, кол: ЦЕЛ;

ЗАДАЧА Сумма_цифр(число: ЦЕЛ): ЦЕЛ;
ПЕР
  сумма: ЦЕЛ;
УКАЗ
  сумма := 0;
  ПОКА число > 0 ВЫП
    УВЕЛИЧИТЬ(сумма, число ОСТАТОК 10);
    число := число ДЕЛИТЬ 10
  КОН;
  ВОЗВРАТ сумма
КОН Сумма_цифр;

УКАЗ
  Вывод.Цепь("n: ");
  n := Приём.Число();
  Вывод.Цепь("^k: ");
  k := Приём.Число();
  мин := 1;
  ОТ сч := 1 ДО n - 1 ВЫП
    мин := мин * 10
  КОН;
  кол := 0;
  ОТ сч := мин ДО мин * 10 - 1 ВЫП
    ЕСЛИ Сумма_цифр(сч) = k ТО
      УВЕЛИЧИТЬ(кол)
    КОН
  КОН;
  Вывод.ЧЦел("^%d", кол, 0, 0, 0)

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