//Если нужно будет перевести другую строку в цифры, то не забудь поменять параметр Size. В него нужно будет записать количество символов в строке
Program Test;
const Size = 19;
Var i, tmp: integer; Str, Resultat: string;
Begin
Str := 'yoonmin_in_my_heart';
for i := 1 to Size do
begin
tmp := ord(Str[i]);
Resultat := Resultat + tmp
end;
Writeln(Resultat);
End.
Ошибка которая вызывает проблемы
<span>Линейный (последовательный) алгоритм — описание действий, которые выполняются однократно в заданном порядке
</span><span>Циклический алгоритм — описание действий, которые должны по вторяться указанное число раз или пока не выполнено заданное условие. Перечень повторяющихся действий называется телом цикла
</span>
<span>Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий
</span>
<span>Вспомогательный алгоритм — алгоритм, который можно использовать в других алгоритмах, указав только его имя
</span>
Примеры
<span>Линейными являются алгоритмы отпирания дверей, заваривания чая, приготовления одного бутерброда. Линейный алгоритм применяется при вычислении арифметического выражения, если в нем используются только действия сложения и вычитания
</span>
<span>Многие процессы в окружающем мире основаны на многократном повторении одной и той же последовательности действий. Каждый год наступают весна, лето, осень и зима. Жизнь растений в течение года проходит одни и те же циклы. Подсчитывая число полных поворотов минутной или часовой стрелки, человек измеряет время
</span>
<span>Примеры разветвляющих алгоритмов: если пошел дождь, то надо открыть зонт; если болит горло, то прогулку следует отменить; если билет в кино стоит не больше десяти рублей, то купить билет и занять свое место в зале, иначе (если стоимость билета больше 10 руб. ) вернуться домой
</span>
<span>Например: вы в детстве учились суммировать единицы, затем десятки, чтобы суммировать двузначные числа содержащие единицы вы не учились новому методу суммирования, а воспользовались старыми методами</span>
25==11001
47=<span>101111
94=</span>1011110<span>
115=</span><span>1110011
203=</span>11001011<span>
458=</span><span>111001010</span>
// PascalABC.NET 3.3
begin
var a:=ArrRandom(8,-30,30); a.Println;
writeln('Положительных: ',a.Where(x->x>0).Count);
writeln('Отрицательных: ',a.Where(x->x<0).Count);
end.
Пример:
19 17 -1 21 -23 -13 20 24
Положительных: 5
Отрицательных: 3
