Вот самая простая программа, которая переводит слова в unicode. Код каждого символа через тире. var s:string; i:integer; begin; readln(s); for i:=1 to length(s) do write(ordunicode(s[i]),'-'); end. Так же можно использовать charmap.exe.
1) Петя и Вера учатся у П (победитель Программирования), а Игорь и Маша только заинтересовались языком Си++, значит П - Олег. 2) Петя, Маша и Вера не И (победитель Истории), т.к. или учатся с ним в одной школе или живут в одном доме. Значит И - Игорь. 3) победитель Литературы (Л) знаком с Петей и Машей, значит он не они, а Вера. 4) Петя не любит английский, значит он - Р (победитель по Русскому яз.). 5. И остаётся Маша - А ( победитель по Англ.яз.). Значит правильные ответы: 1) Игорь, 2) Олег, 3) Вера, 4) Петя, 5) Маша.
1) Ошибка может содержаться в любой ветке. Не протестировав все - не узнаешь, а не узнав - не исправишь. Значит в итоге будет кривая программа. Брак то бишь. 2) условия можно вкладывать друг в друга любое число раз, главное не запутаться в них в итоге. Выглядеть это будет например вот так: If a<0 then b:=a/2 else if a=0 then b:=a else b:=a*2; Или так: if a<0 then if (abs(a) mod 2 =0) then b:='отрицательное чётное' else b:='отрицательное нечетное' else b:='положительное'; Главное чётко следить к какому if какое then и особенно какое else. Блок схемы на картинке. Возможна масса других вариантов.
var s:string;
i:integer;
begin;
readln(s);
for i:=1 to length(s) do
write(ordunicode(s[i]),'-');
end.
Так же можно использовать charmap.exe.
UPD: Можно.
Нажми "Пуск", в строке поиска файлов введи charmap.exe. Появится окно-таблица Unicode.