Вычислите значение суммы 10(2) + 10(8) +10(16) в двоичной системе счисления

Вначале считаем сумму, переведя числа в десятеричную: 2+8+16=26 26 в двоичной это 11010. ответ: 11010.

Ошибок тут больше одной. во-первых, в операторе вывода стоит вызов функции ups, которой в качестве второго аргумента передается неизвестная переменная a. если имелся в виду символ "а", его надо было заключить в одинарные кавычки. во-вторых, в теле функции ups определяется значение n в цикле. даже, если искомый символ найден и n получит значение позиции этого символа в слове, то если слово просмотрено не полностью, следующий же проход по циклу снова сбросит n в ноль. следовательно, эта функция будет выдавать верный результат только если искомая буква - последняя в слове. var   slovo: string;   i: integer; function ups(var s: string; ch: char): integer; var   i, n: integer; begin   i: =1;   n: =0;   while (i< =length(s)) and (n=0) do       begin       if s[i] = ch then n : = i;       i: =i+1       end;   ups: =n end; begin   writeln('vvedite slovo');   readln(slovo); writeln('n = ', ups(slovo, 'a')); end. замечание: в языке паскаль имеется функция pos, производящая поиск подстроки в

Const n=5; var a : array[1..n] of integer;       k,i : integer; begin randomize;   for i: =1 to n do   begin   a[i]: =random(26)-10;   write(a[i],' ');   end; writeln;   writeln('элементы равные 1 имеют номера: '); for i: =1 to n do  if a[i]=1 then write(i: 3); writeln; writeln('индексы нечетных элементов: '); for i: =1 to n do  if a[i] mod 2< > 0 then write(i: 3); writeln; k: =0; for i: =1 to n do  if a[i]> 0 then k: =k+1; writeln('количество положительных элементов=',k); end.