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

Склавиатуры вводится строка, состоящая из различных символов, среди которых могут быть и цифры. посчитать сумму "замечательных" цифр. "замечательной" назовём цифру, если номер позиции в строке, на которой стоит эта цифра, делится на саму цифру без остатка.

👇
Ответ:
Var
   S:string;
   i:integer;
   Sum:real;
   C:Byte;
Begin
Sum:=0;
Write('Введите строку: ');
ReadLn(S);
For i:= 1 to Length(S) do
    if ('1'<=S[i])and(S[i]<='9') then
       Begin
       Case S[i] of
       '1':C:=1;
       '2':C:=2;
       '3':C:=3;
       '4':C:=4;
       '5':C:=5;
       '6':C:=6;
       '7':C:=7;
       '8':C:=8;
       '9':C:=9;
       End;
       if i mod C = 0 then Sum:=Sum+C;
       End;
WriteLn('Sum = ',Sum);
End.
4,4(62 оценок)
Открыть все ответы
Ответ:
Tania1236
Tania1236
26.06.2020

ответ:

вопрос не правильно задан! но если вы хотели узнать именно значение этого слова, то

объяснение:

до сих пор мы рассматривали информацию в самом общем плане как снятую, устраняемую неопределенность. именно то, что устраняет, уменьшает любую неопределенность, и есть информация. но что такое неопределенность вообще? здесь мы не собираемся дать исчерпывающий ответ на этот вопрос, а обратим внимание читателя на некоторые существенные моменты использования понятия неопределенности в теории информации.

menu

§ 4. информация и разнообразие

до сих пор мы рассматривали информацию в самом общем плане как снятую, устраняемую неопределенность. именно то, что устраняет, уменьшает любую неопределенность, и есть информация. но что такое неопределенность вообще? здесь мы не собираемся дать исчерпывающий ответ на этот вопрос, а обратим внимание читателя на некоторые существенные моменты использования понятия неопределенности в теории информации.

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

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

понимание информации как всего того, что устраняет неопределенность, достаточно хорошо «работает» во многих современных концепциях информации. как уже отмечалось, понятие неопределенности используется в статистической теории информации. все же было бы неверно считать, что неопределенность связана лишь со случайными процессами. такую точку зрения старается провести ст. бир. но и он вынужден признать, что неопределенность имеет относительный характер и то, что может оказаться неслучайным для исследователя, становится случайным для машины [‡‡‡‡‡]. необходимо, конечно, исходить из более общих представлений о понятии неопределенности, чем вероятностные. это, в частности, диктуется появлением невероятностных подходов в теории информации.

4,6(46 оценок)
Ответ:
bilainфом
bilainфом
26.06.2020
//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.
4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ