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

Нужно составить блок схему по данной задаче. Составьте блок – схему алгоритма вычисления произведения нечетных чисел, меньших 16.
Сама программа:
#include stdio.h
#include conio.h
#include math.h
int main() {
int x,pr=1;
setlocale(LC_ALL, "Russian");
printf("Вводите числа, чтобы окончить последовательность введите: 0\n");
do {
scanf_s("%d", &x);
if (x%2!=0 && x < 16 & x !=0)
pr *= x;
} while (x != 0);
printf("%d", pr);
}

Показать ответ
Ответ:
Kagane
Kagane
03.01.2022 18:17

Представление.

Объяснение:

   В данном случае не хватает сведений для того, чтобы с уверенностью ответить на данный вопрос. Можно с уверенностью сказать, что номер уже имеется на каком-то источнике информации, то есть это не "сбор". Также это не "хранение", так-как информация с одного носителя в конечном итоге перемещается на другой. Также это не является "передачей" информации в полном смысле этого словосочетания, так-как передача осуществляется без преобразования информации.

   Соответственно запись номера в телефонную книжку - представление информации из того, в каком виде эта информация поступила к записывающему в текст.  

0,0(0 оценок)
Ответ:
23414262
23414262
09.09.2020 12:58

var

  a : array of integer;

  n, i, last : integer;

begin

  read (n);

  setlength (a, n);

  for i := 0 to n - 1 do

    read (a[i]);

  last := 0;

  for i := 0 to n - 1 do

    if a[i] <> 0 then

    begin

      a[last] := a[i];

      inc (last);

    end;

  setlength (a, last);

  for i := 0 to last - 1 do

    write (a[i], ' ');

end.

 

Суть такова. Имеем динамический массив. Считали массив, так как динамический, то от нуля все. Установили последнюю свободную ячейку 0. Идем по массиву и ищем ненулевое значение. Как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. При этом наши данные не затираются. После окончания всех операций в last лежит длина массива.

Статитечкий массив. 

var

  a : array [1..100] of integer;

  n, i, last : integer;

begin

  read (n);

  for i := 1 to n do

    read (a[i]);

  last := 1;

  for i := 1 to n do

    if a[i] <> 0 then

    begin

      a[last] := a[i];

      inc (last);

    end;

  dec (last);

  for i := 1 to last do

    write (a[i], ' ');

end.

 

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