Я уже отвечал на подобный вопрос. Эту колдунью зовут Кодировка КОИ-8. Таблица кодирования: А-Ю, Б-А, В-Б, Г-Ц, Д-Д, Е-Е, Ж-Ф, З-Г, И-Х, Й-И, К-Й, Л-К, М-Л, Н-М, О-Н, П-О, Р-П, С-Я, Т-Р, У-С, Ф-Т, Х-У, Ц-Ж, Ч-В, Ш-Ь, Щ-Ы, Ъ-З, Ы-Ш, Ь-Э, Э-Щ, Ю-Ч, Я-Ъ, Ё-╦ Таблица построена так. Слева стоят буквы по русскому алфавиту, а справа русские буквы, соответствующие английскому алфавиту. @ - Ю (код 40), A - А (41), B - Б, C - Ц, D - Д, E - E, F - Ф, и т.д. Буква Ё - 33-ья в алфавите, она выбивается из ряда в 32 буквы, поэтому превращается не в букву, а в элемент псевдографики. И еще меняется регистр, 1-ая буква маленькая, остальные большие. Эти имена по порядку: Глеб, Степан, Иван, Фёдор, Кирилл, Леонид
1. Базовым понятием объектно-ориентированного программирования является: 4) объект 2. Объектно-ориентированное программирование - это: 2) метод программирования, суть которого состоит в разработке программы в виде взаимодействующих объектов 3. Методы - это ... 2) действия, которые можно выполнить над объектом или которые сам объект может выполнить 4. Укажите типы числовых переменных, принимающих только целые значения: 2) Long; 5. Укажите тип переменной которой соответствует логическое значение True или False: 3) Boolean 6. Что изменяет операция присваивания? 1) значение переменной 7. Среди приведенных записей укажите те, которые могут быть именами переменных: 1) sngSum 2) Dim 3) intX124 7) B4 8. Каково будет значение переменной после выполнения операций присваивания: intX = 5 intX = intX + intX 4) 10
10. Объявите переменную А и присвойте значение 155:
var a,i,max: integer;
begin
max:=0;
for i:=1 to 7 do
begin
readln(a);
if (a>max) then max:=a;
end;
writeln(max);
end.