6. Найти суммы цифр данного натурального числа N (6783) Найти суммы цифр данного натурального числа N. n=int(inpt ('Введите число ')) s = 0 while n1=0 : k=n\ s = s + k n=n//10 print('Сумма цифр MCna=^ prime ,s) n Трассировка S k

program n_2;

var i: integer;

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

begin

 randomize;

 for i:=1 to 10 do

   a[i]:=random(100);

 for i:=1 to 10 do

   write(a[i],' ');

end.

Вычисление суммы элементов массива

program  n_3;

 var s, i: integer;

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

begin  

 s:=0;

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write (a[i],' ');

 for i:=1 to 10 do s:=s+a[i];

 writeln('s=', s)

end.

Вычисление суммы элементов массива

[Используем операторные скобки и всё (ввод, вывод, обработку) делаем в одном цикле]

program  n_3_1;

 var s, i: integer;

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

begin  

 s:=0;

 randomize;

 for i:=1 to 10 do

    begin  

       a[i]:=random(100);

       write(a[i],' ');

       s:=s+a[i]

    end;

 writeln('s=', s)

end.

Программа поиска наибольшего элемента в массиве

program  n_4;

 var i, imax: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write(a[i],' ');

 imax:=1;

 for i:=2 to 10 do

   if a[i]>a[imax] then

      imax:=i;

 write('Наибольший элемент   a[', imax, ']=', a[imax])

end.

Поиск элемента, равного 50

program  n_5;

var   n, i: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write(a[i],' ');

 n:=0;

 for i:=1 to 10 do

   if a[i]=50 then

      n:=i;

 if n=0 then

    write('Нет')

 else

    write(n)

end.

Поиск элемента, равного 50

program  n_5_1;

 var n, i: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write(a[i],' ');

 i:=0;

 repeat

   i:=i+1;

 until (a[i]=50) or (i=10);

 if a[i]=50 then

   write(i)  

 else  

   write('Нет')

end.

Для подсчета вводится переменная, значение которой увеличивается на единицу каждый раз, когда найден нужный элемент.

program  kolich;

var   k, i: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write (a[i],` `);

 k:=0;

 for i:=1 to 10 do

   if a[i]>50 then

      k:=k+1;

 write('k=', k)

end.

Сумма значений элементов, удовлетворяющих условию

program  sum ;

var   s, i: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do

   a[i]:=random(100);

 for i:=1 to 10 do

   write (a[i],` `);

 s:=0;

 for i:=1 to 10 do

   if (a[i]>10) and (a[i]<30) then

     s:=s+a[i];

 write('s=', s)

end.

Сортировка массива

program sort;

var   n, i, j, x, imax: integer;

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

begin

 for i:=1 to 10 do read (a[i]);

 for i:=1 to 10 do write (a[i], ' ');

 for i:=1 to 9 do

 begin

   imax:=i;

   for j:=i+1 to 10 do

     if a[j]>a[imax] then

       imax:=j;

   x:=a[i];

   a[i]:=a[imax];

   a[imax]:=x

 end;

 for i:=1 to 10 do

   write(a[i], ' ')

end.

Возведение числа в любую степень.

program calc_stepen;

var

 a, b, h, i: integer;

 c: real;

begin

 b := 1;

 readln( a, h);

 for i := 1 to abs(h) do

   b := b * a;

 if h < 0 then

   c := 1 / b

 else

   c := b;

 writeln( c:3:5 );

end.

Определение гласных и согласных букв:

program alfabet;

var

 s: char;

begin

 read(s);

 case s of  

   'а','е','ё','и','о','у','ы','э','ю','я': writeln('гласные');

   'б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ': writeln('согласные');

 else

   writeln('знаки');

 end;

end.

Объяснение:

Відновіть типовий ланцюжок передавання інформації

Ваша відповідь Вірна відповідь

Декодування

Джерело

Приймач

Кодування

Джерело

Канал зв’язку

Кодування

Декодування

Канал зв’язку

Приймач

Як людина кодує звуки своєї природної мови?

Настроєм

Рухами

Літерами і жестами

Запахами

Яким чином можна закодувати поняття?

Комп’ютером

Ієрогліфом

Символом

Дощем

QR-код - це...

Процес перетворення за певними правилами одного подання набору даних в інший

Квадратна картинка, в якій закодовано деякі відомості

Система правил для перетворення повідомлень, що містять текст, звук, зображення, жести тощо

Правильної відповіді немає

Чому незручно було передавати повідомлення, збережені первісними людьми?

Людей тоді було мало

Повідомлення були закодовані у вигляді наскельних малюнків

Первісні люди не могли приймати повідомлень

Повідомлень у часи первісних людей не було

Що таке декодування?

Сприйняття повідомлень технічними приладами

Перетворення закодованого повідомлення у форму, прийнятну для приймача

Збереження звукових повідомлень у письмовому вигляді

Передавання повідомлень від передавача до приймача

Що таке кодування?

Ввідомості про навколишній світ і явища, які в ньому відбуваються

Перетворення повідомлень у зручну для передавання, зберігання, опрацювання форму

Процес передавання, зберігання, опрацювання повідомлень

Сприйняття повідомлень органами зору, слуху, нюху, смаку та дотику

Вказати на  професії пов'язані з опрацюванням даних

бухгалтери

художники

астрономи

лікарі

Установіть відповідність між сигналами і приймачами.

Варіант Ваша відповідь Правильна відповідь

Червоне світло світлофора  

Водій

Водій

Жест дресирувальника  

Тигр

Тигр

Свисток арбітра  

Футболіст

Футболіст

Світло маяка  

Капітан корабля

Капітан корабля

Як кодування звуку «А»?  

Спеціальним ієрогліфом

Крапкою та тире азбуки Морзе

Літерою алфавіту «А»

Жестом семафорної азбуки

Опрацювання даних -  

це процес отримання нових даних

це процес отримання нових даних з наявних

це процес отримання з наявних нових даних

Процес заміни однієї послідовності сигналів, якою подане повідомлення, іншою послідовністю сигналів називають  

Відповідь:""

Правильна відповідь:"кодуванням повідомлення."

Що таке код?

Набір правил кодування повідомлень

Особливе повідомлення у письмовому вигляді

Наскельний малюнок

Інформація, збережена в комп’ютері

Объяснение: