Решить в паскале. задан массив а(1: 20 найти произведение всех его ненулевых элементов.

Program t1; const   n=20 var   i, x, s : integer;   t: string;   m1: array [1..n] of integer; begin   s : = 1;   for i : = 1 to n do   begin         x : = m1[i];         if (x < > 0) then s : = s * x;   end;   writeln('ответ ',s); end; end.

1.  123 в четверичной: 1*4^2+2*4+3= 16+4+3=23

2. 322 в шестиричной: 3*6^2+2*6^1+2= 3*36+12+2=122

3.  99 в шестнадцатеричной: 9*16+9= 144+9=153

4.  FAC в шестнадцатеричной: 15*16^2+10*16+12= 15*256+160+12=3840+172=4012

5.  111 в двоичной: 4+2+1=7

6.  1001101 в двоичной: 1+4+8+64=77

7.115 в восьмеричной: 64+8+5=77

8. 4С в шестнадцатеричной: 4*16+13=77

9.  34 в семиричной: 3*7+4=25

10.  710 в восьмеричной: 7*64+8=448+8=456

Объяснение:

Вот тебе небольшие лайфхаки для перевода из двоичной в восьмеричную/шестнадцатеричную:

7.  1001101 в восьмеричной: разбиваем на триады начиная справа:

101 = 5 001=1 1=>001=1 получается: 115

8.  1001101 в шестнадцатеричной: также разбиваем, но уже на четыреады:

1101=13=>C 100=4 получается: 4С

ответ:Доброго времени суток.

Очень не корректно поставлен во Что есть Текст? Это текстовый файл, строка, введенная пользователем, еще что-то? Думайте, прежде чем с и, скорее всего, получите нормальный ответ.

Поэтому, поскольку нет конкретики, будем считать текстом строку, введенную пользователем.

Write('Введите текст : ');

ReadLn(S);

В переменной S теперь находится некоторый текст. Начнем с ним работать. Будем считать словом последовательность символов, ограниченных с обеих сторон пробелами. Сначала сделаем копию введенного текста.

S1 := ' ' + S + ' '; {чтобы не потерять первое и последнее слова}

А дальше,  

N := 0; {счетчик слов Мама}

while Pos(' Мама ', S1) > 0 then begin

Delete(S1, Pos(' Мама ', S1)+1, 4);

N := N + 1;  

end;

Поскольку может в тексте быть и "мама", то повторим

while Pos(' мама ', S1) > 0 then begin

Delete(S1, Pos(' мама ', S1)+1, 4);

N := N + 1;  

end;

Вот и все. Осталось вывести результат.

WriteLn('Во ввденном тексте слово "мама" встречается ', N, ' раз');

Удачи!

PS Можно было бы не делать второй проход, если предварительно преобразовать введенный текст к одному регистру, а затем искать подстроку в этом регисте.