Romanovich (первая буква большая)
Кодирование в ASCII (American standard code for information interchange):
Двоичный код: 01010010 (R), 01101111 (o), 01101101 (m), 01100001 (a), 01101110 (n), 01101111 (o), 01110110 (v), 01101001 (i), 01100011 (c), 01101000(h)
Кодирование в КОИ-8 («Код Обмена Информацией 8-битовый», таблица разработана для кодирования букв кириллицы)
Двоичный код: 11111010 (З), 11000001 (а), 11010111 (в), 11010100 (т), 11010010 (р), 11000001 (а), 00100000 (пробел), 11010111 (з), 11001001 (и), 11001101 (м), 11000001 (а), 00101110 (. точка)
Десятичный код этой фразы: 250, 193, 215, 212, 210, 193, 32, 215, 201, 205, 193, 46
Romanova = 82 111 109 97 110 111 118 97 (не забываем пробелы)
Но! Это десятичная форма, а нам нужна двоичная! Поэтому:
Заходим в калькулятор -> Вид -> Программист. (Слева, среди английских надписей нужно выбрать "Dec")
Теперь вводим в этот калькулятор десятичный код = (например) 82. И среди английских записей меняем "Dec" на "Bin".
Получаем двоичный код ОДНОЙ буквы. R = 82 = 1010010 (Когда будете переписывать, то добавьте к полученному двоичному коду впереди ноль. Потому что этот код должен состоять из 8 цифр, просто калькулятор этого не понимает)
Проделываем ту же операцию со всеми буквами вашей фамилии (сначала в десятичную форму ANSI, потом в двоичную, при калькулятора)
2. Ну тут можно использовать тот же метод кодировки ANSI.
Пишем русскую фразу, потом находим все эти буквы в таблице ANSI и так далее.
Надеюсь
N = 10;
type
Tmas = array [1..N] of longint;
var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i]>0 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.
как лучший