Текстовый файл состоит не более чем из 10 6 заглавных латинских букв az
Текстовый файл 24-197.txt содержит строку из заглавных латинских букв X, Y и Z, всего не более чем из 106 символов. Определите максимальное количество идущих подряд троек символов X*X или Y*Y, где * обозначает один любой символ.
ЕГЭ задание 24 Определите максимальное количество идущих подряд символов
Текстовый файл 24-157.txt состоит не более чем из 106 символов и содержит только заглавные буквы.
Определите максимальное количество идущих подряд символов, среди которых нет подстроки XYZ
Текст задачи: Текстовый файл состоит не более чем из 1200000 символов, которые являются прописными.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны
Текстовый файл состоит не более чем из 106 символов X, Y и Z. Определите максимальное количество.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны
Доброго времени суток! На этот раз задание иное. Текстовый файл состоит не более чем из.
Cпасибо огромное, разобралась
Добавлено через 1 минуту
Gdez, а можете мне ещё помочь?
Вот такая программа:
текст задачи:Текстовый файл 24-197.txt содержит строку из заглавных латинских букв X, Y и Z, всего не более чем из 106 символов. Определите максимальное количество идущих подряд троек символов X*Y или Z*Y, где * обозначает один любой символ.
Не понимаю почему 19 у меня , а в ответе 20
Marysia, именно ее и исправлял - так как алгоритм счетчика нужен другой, и условие сократил
Кстати, этот код для первой задачи "вернее" предыдущего (за счет i = i - 2), и условие в первой задаче можно сократить до:
Добавлено через 12 минут
i = i - 2 -> используется, если были X*Y или Z*Y перед этим - нужно "откатить" на два индекса назад
Например, XXY YXZ YXX YZZ YYY(пробелы для визуализации "троек")
Ваш код "поймает" -> XXY Y XZY XXY ZZYYY => получились 2 тройки подряд
Мой -> в начале XYY, следующая тройка YXZ не подходит под условие, возвращаемся на две позиции назад -> (x)XY YXZ YXX YZZ YYY -> XYY XZY XXY ZZY YY => 4 тройки
Определить максимальное количество идущих подряд символов, расположенных в алфавитном порядке
Вообще 0 мыслей о том как это решить, помогите пожалуйста. Текстовый файл состоит не более чем.
Максимальное количество подряд идущих значений
Необходимо посчитать для каждого символа в строке максимальное количество подряд идущих значений. .
Посчитайте максимальное количество подряд идущих нулей
1. Дан одномерный массив А, состоящий из N элементов. Посчитайте максимальное количество подряд.
Наибольшее количество символов идущих подряд
Добрый вечер, помогите с заданием. Есть записанный в файл текст. Нужно определить наибольшее число.
Найти наибольшее количество подряд идущих одинаковых символов
Задача: "Дан текст, который пользователь должен ввести в программу, найти и вывести наибольшее.
В последовательности символов подсчитать наибольшее количество идущих подряд пробелов
Даны натуральное число n, символы s1 … sn . Подсчитать наибольшее количество идущих подряд.
На уроке рассмотрен материал для подготовки к ЕГЭ по информатике, разбор 24 задания. Объясняется тема о программной обработке символьной информации.
ЕГЭ по информатике 24 задание объяснение
24-е задание: «Программная обработка символьной информации»
Уровень сложности — повышенный,
Требуется использование специализированного программного обеспечения — нет,
Максимальный балл — 1,
Примерное время выполнения — 8 минут.
Проверяемые элементы содержания: Умение создавать собственные программы (10–20 строк) для обработки символьной информации
Последовательности (цепочки) символов
24 задание. Демоверсия варианта ЕГЭ по информатике 2021, ФИПИ:
Текстовый файл состоит не более чем из 106 символов X, Y и Z.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны.
Для выполнения этого задания следует написать программу.
Ответ: 35
✍ Решение:
var f: text; i, k, max: integer; s: string; begin assign(f, 'D:\24.txt'); reset(f); readln(f, s); max := 1; k := 1; // кол-во подряд идущих for i := 2 to length(s) do begin if s[i] <> s[i - 1] then begin inc(k); if k > max then max := k; end else k := 1; end; write(max) end.
f=open('D:/24.txt') s=f.readline() m=1 k=1 for i in range(1,len(s)): if s[i]!=s[i-1]: k+=1 m=max(k,m) else: k=1 print(m)
📹 Видеоразбор:
📹 Видеорешение на RuTube здесь
24 задание с сайта К. Полякова, № 1:
В текстовом файле k7-0.txt находится цепочка из символов латинского алфавита A, B, C.
Найдите длину самой длинной подцепочки, состоящей из символов C.
Ответ: 0
begin assign(input, 'k7-0.txt'); var s: string; var c: string; read(s); c := 'C'; while c in s do c := c + 'C'; print(length(c) - 1) end.
24 задание с сайта К. Полякова, № 21:
В текстовом файле k7a-1.txt находится цепочка из символов латинского алфавита A, B, C, D, E.
Найдите длину самой длинной подцепочки, состоящей из символов A, B или C (в произвольном порядке).
Ответ: 16
begin assign(input, 'k7a-1.txt'); var s: string; read(s); var k := 0; var maxim := 0; for var i := 1 to length(s) do if s[i] in 'ABC' then begin k += 1; if k > maxim then maxim := k end else k := 0 ; write(maxim) end.
24 задание с сайта К. Полякова, № 26:
В текстовом файле k7a-6.txt находится цепочка из символов латинского алфавита A, B, C, D, E, F.
Найдите длину самой длинной подцепочки, не содержащей гласных букв.
Ответ: 20
begin assign(input, 'k7a-6.txt'); var s: string; read(s); var k := 0; var maxim := 0; for var i := 1 to length(s) do if s[i] in 'BCDF' then begin k += 1; if k > maxim then maxim := k end else k := 0 ; write(maxim) end.
begin var s := readAllText('d:\k7a-6.txt').Trim; var (k, max) := (0, 0); foreach var c in s do if not (c in 'AE') then begin k += 1; if k > max then max := k; end else k := 0; print(max) end.
24 задание с сайта К. Полякова, № 27:
В текстовом файле k7b-1.txt находится цепочка из символов латинского алфавита A, B, C, D, E.
Найдите максимальную длину цепочки вида EABEABEABE… (состоящей из фрагментов EAB, последний фрагмент может быть неполным).
Ответ: 7
✍ Решение:
begin assign(input, 'k7b-1.txt'); var s: string; read(s); var c := 'EAB'; while c in s do begin if c[length(c)] = 'B' then c += 'E' else if c[length(c)] = 'A' then c += 'B' else if c[length(c)] = 'E' then c += 'A'; end; print(length(c) - 1) end.
f=open('k7b-1.txt') s = f.readline() m = 0 i = 0 for char in s: if (char == 'E' and i%3 == 0) or \ (char == 'A' and i%3 == 1) or \ (char == 'B'and i%3 == 2): i += 1 m = max(i,m) elif char == 'E': i = 1 else: i = 0 print(m)
24 задание с сайта К. Полякова, № 33:
В текстовом файле k7c-1.txt находится цепочка из символов латинского алфавита A, B, C, D, E.
Найдите количество цепочек длины 3, удовлетворяющих следующим условиям:
Ответ: 1280
begin assign(input, 'k7c-1.txt'); var s: string; read(s); // весь текст файла var k := 0; var c1 := 'BCD'; var c2 := 'BDE'; var c3 := 'BCE'; for var i := 1 to length(s) - 2 do begin if (s[i] in c1) and (s[i + 1] in c2) and (s[i + 2] in c3) and (s[i] <> s[i + 1]) and (s[i + 1] <> s[i + 2]) then k += 1 end; print(k) end.
24 задание с сайта К. Полякова, № 52:
Ответ: 2 3
📹 Видеоразбор:
📹 Видеорешение на RuTube здесь
24 задание с сайта К. Полякова, № 108:
Текстовый файл 24.txt содержит последовательность из строчных и заглавных букв английского алфавита и цифр, всего не более 10 6 символов. Определите длину наибольшей убывающей подпоследовательности.
Ответ: 3
for var i := 2 to length(s) do begin if s[i] < s[i - 1] then
. if k > max then max := k;
begin assign(input, 'D:/24.txt'); var s: string; read(s); // весь текст файла var k := 1; //длина текущей бывающей последовательности символов var max := 0; // макс длина for var i := 2 to length(s) do begin if s[i] < s[i - 1] then begin k += 1; // увеличиваем счетчик длины последовательности if k >max then max := k; end else k := 1; // сбрасываем счетчик для работы со след. последовательностью end; print(max) end.
Выполнение 24 задания ЕГЭ
Плейлист видеоразборов задания на YouTube:
Работа с отдельными строками файла
24 задание с сайта К. Полякова, № 137:
Текстовый файл 24-s1.txt состоит не более чем из 10 6 заглавных латинских букв ( A..Z ). Текст разбит на строки различной длины.
Определите количество строк, в которых буква J встречается чаще, чем буква E .
Ответ: 482
begin assign(input, '24-s1.txt'); var s: string; var k := 0; while true do // бесконечный цикл begin readln(s); // считываем очередную строку if s = '' then break; // если строка пустая (т.е. достигнут конец файла), выходим if s.Count(c -> c = 'J') > s.Count(c -> c = 'E') then k += 1; end; print(k) end.
Рубрики:
Здравствуйте, подскажите, пожалуйста, что не так. У меня ни ваша программа не работает, ни своя.
Program N2;
var b, a, i : integer;
s: string;
k:text;
begin
s:=’C:\24_demo.txt’;
assign(k, s);
reset(k);
b := 1;
a := 1;
for i:=2 to Length(s) do
if (s[i]=s[i-1]) and (s[i]=’X’) then
begin
a:=a+1;
if b < a then b:=a;
end
else a:=1;
writeln(b);
end.
Своя по нахождение максимального кол-во подряд идущих символов
х. Что не так с программой?
Yatogami
Здравствуйте, в задаче №33 ваша программа
begin
assign(input, ‘Путь к файлу’);
var s: string;
read(s); // весь текст файла
var k := 0;
var c1 := ‘BCD’;
var c2 := ‘BDE’;
var c3 := ‘BCE’;
for var i := 1 to length(s) — 2 do
begin
if (s[i] in c1) and (s[i + 1] in c2) and (s[i + 2] in c3)
and (s[i] s[i + 1]) and (s[i + 1] s[i + 2]) then
k += 1
end;
print(k)
end.
Не работает в паскале (путь изменил на свой, в файл добавил символы из вашего, клоню к тому, что это не ошибка невнимательности)
И хотелось бы узнать( если можно) почему моя программа выдает неправильный результат
var count,numb,i:longint;
s:string;
f:text;
mas:array [1..2] of string;
begin
assign(f,’путь к файлу ‘);
reset(f);
readln(f,s);
count:=1;
for i := 1 to length(s) do begin
if ((s[i]=’B’) or (s[i]=’C’) or (s[i]=’D’)) and (count mod 3 =1 )then begin
mas[1]:=s[i]; inc(count);
end;
if ((s[i]=’B’) or (s[i]=’D’) or (s[i]=’E’)) and (count mod 3 =2) and (s[i]mas[1])then begin
mas[2]:=s[i]; inc(count);
end;
if ((s[i]=’B’) or (s[i]=’C’) or (s[i]=’E’)) and (count mod 3 = 0 ) and (s[i] mas[2])then begin
inc(count); inc(numb);
end;
mas[1]:=default(string);
mas[2]:=default(string);
end;
writeln(numb);
end.
Привет! Сегодня будем учится решать 24 задание из ЕГЭ по информатике 2021.
Двадцать четвёртое задание из ЕГЭ по информатике нацелено на обработку символьной информации.
В этом уроке будем решать задачи 24 задания с помощью языка программирования Pascal.
Перейдём к Демонстрационному варианту из ЕГЭ по информатике 2021.
Задача (Задание 24, Демонстрационный вариант 2021)
Текстовый файл состоит не более чем из 10 6 символов X, Y и Z.
Определите максимальное количество идущих подряд символов, среди которых каждые два соседних различны.
Для выполнения этого задания следует написать программу.
В начале посмотрим, как считать посимвольно файл.
В данном примере сам текстовый файл должен находиться по адресу: "c:\24.txt".
В цикле while с помощью команды read(f, c) считывается из файла очередной символ в переменную c и распечатывается на экран с помощью команды writeln(c).
Т.к. количество символов большое в этом файле, убедившись, что считывание происходит нормально, можно нажать на кнопку "Завершить".
В данной задаче нужно посчитать, на сколько длинная цепочка символов есть в нашем файле, в которой не идут два подряд одинаковых символа.
Алгоритм будет следующий: Берём символ, сравниваем его со следующим, если они разные, то добавляем к счётчику 1. Счётчик начинает работать с 1, чтобы засчитать самый первый символ. Если символы одинаковые, то сбрасываем счётчик на 1 (первоначальное значение).
Таким образом, у нас будет разная длина цепочек не повторяющихся символов в нашем файле. Но нам нужно в ответе написать наибольшую длину. Для этого мы будем использовать механизм для нахождения максимального значения, который был описан в статье по 17 заданию из ЕГЭ по информатике 2021.
Напишем программу на языке Pascal, которая решает нашу задачу.
После запуска программы на экране высветится число 35.
Следующая тренировочная задача из 24 задания ЕГЭ по информатике 2021.
Задача (Последовательность одного символа)
Текстовый файл состоит не более чем из 10 6 символов L, D и R. Определите длину самой длинной последовательности, состоящей из символов R. Хотя бы один символ R находится в последовательности.
Для выполнения этого задания следует написать программу. Ниже приведён файл, который необходимо обработать с помощью данного алгоритма.
Здесь логика следующая: В цикле считываем очередной символ. Если это символ R, то к счётчику прибавляем 1. Если встретили не символ R, то счётчик сбрасываем на ноль. Попутно в переменной max сохраняем максимальное значение для счётчика.
Ещё одна задача на понимание из 24 задания ЕГЭ по информатике 2021.
Задача (Последовательность трёх символов)
Текстовый файл состоит не более чем из 10 6 символов X, Y и Z. Определите максимальную длину цепочки вида XYZXYZXYZ. (составленной из фрагментов XYZ, последний фрагмент может быть неполным).
Для выполнения этого задания следует написать программу. Ниже приведён файл, который необходимо обработать с помощью данного алгоритма.
Пусть в начале показания счётчика равно нулю. Если мы находим нужный нам символ в нужной последовательности, то прибавляем к счётчику 1. Если последовательность сбивается, то ставим счётчик в ноль.
На рисунке представлен данный алгоритм. В нижней строке указано показание счётчика в момент анализа символа.
На данном рисунке максимальная длина цепочки нужных символов равна 9.
Видим, что для символа X, когда он находится на своём месте, остаток от деления значения счётчика на 3 равен 0.
Для символа Y, когда данный символ находится на своём месте, остаток от деления значения счётчика на 3 равен 1.
Для символа Z, когда данный символ находится на своём месте, остаток от деления значения счётчика на 3 равен 2.
Мы смотрим остаток от деления на 3, потому что у нас длина звена равна трём (XYZ).
Таким образом, мы и наш анализ очередного символа привяжем к показанию счётчика:
Важный момент: Если нужную цепочку прервал символ X, то нужно счётчик сразу выставить в 1, иначе может произойти такая ошибка:
Т.е. первые три нужных символа в цепочке алгоритм не засчитал.
Поэтому мы не просто сбрасываем счётчик в ноль, а прописываем условие:
Продолжаем набирать обороты в 24 задании из ЕГЭ по информатике 2021.
Задача (Проверяем соседей символа)
Текстовый файл состоит не более чем из 10 6 символов A, B и C.
Определите максимальное количество идущих подряд символов, каждый из которых имеет отличное значение от своих соседей. Первый и последний символ в строке не могут входить в искомую последовательность.
Для выполнения этого задания следует написать программу.
Задача похожа на демонстрационный вариант. Здесь три символа участвуют в каждой итерации.
Посмотрим ещё не маловажные примеры из 24 задания ЕГЭ по информатике 2021.
Задача (Симметричные символы)
В файле хранится строка из символов. Длина строки не более 10 6 .
Сколько пар символов в строке являются симметричными? Симметричной парой называют такие два символа, которые расположены на одинаковом удалении от концов строки.
Например, в строке mdtdeeftkm три симметричных пары – mm, tt и ee.
Здесь удобнее использовать другой шаблон для считывания символов.
Здесь есть строка s, в которой находятся все символы из нашего файла. В цикле for можно перебрать каждый символ и проанализировать его.
Удобство данного метода состоит в том, что мы может сразу посмотреть, какие символы находятся в середине строки или в конце.
К строке можно обращаться, как к массиву. Тогда в a[1] - Будет первый символ строки, в a[2] - второй и т.д.
Чтобы посмотреть последний символ строки, нужно обратиться к элементу a[Length(s)].
Теперь легко написать программу для нашей задачи:
Проходим в цикле for до половины строки (Length(s) div 2) и анализируем симметричные символы с обеих концов строки.
Если символы равны, то прибавляем к счётчику 1.
Ответ: 19101
Текстовый файл состоит не более чем из 10 6 заглавных латинских букв (A..Z). Текст разбит на строки различной длины. Определите количество строк, в которых встречается комбинация F?O, где вопросительный знак обозначает один любой символ.
Чтобы считать файл построчно, можно использовать следующий шаблон:
Данный фрагмент кода будет печатать поочерёдно все строки из файла c:\24_5.txt.
Обратите внимание в данном шаблоне на тип данных переменной f.
Когда мы считывали по одному символу, для переменной f был тип данных file of char.
Когда мы считываем построчно, для переменной f тип данных выбираем text.
Так же команда для считывания строки становится readln(f, s);. Переменная s имеет тип string.
Напишем решение для данной задачи:
После считывания очередной строки, мы проверяем с помощью цикла for, есть ли комбинация указанных символов. Если есть, прибавляем к счётчику 1 и выходим из цикла for с помощью команды break.
Получить символьное представление натурального числа n
Дано натуральное число n. Получить символьное представление n в виде последовательности цифр и.
Перевести числа в их символьное представление
Датчик случайных чисел генерирует числа от 0 до 255.Нужно перевести числа в их символьное.
Перевести числа в их символьное представление
Датчик случайных чисел генерирует числа от 0 до 255. Нужно перевести числа в их символьное.
Перевести числа в их символьное представление
Датчик случайных чисел генерирует числа от 0 до 255. Нужно перевести числа в их символьное.
Условие надо кидать в тему текстом.
Добавлено через 23 минуты
Sun Serega, огромное вам спасибо за помощь. Обнаружил наитупейшую ошибку. У меня цикл фор до Length(s). А я проверяю условие в s[i+2], вот он и выходил за границы массива. Ещё раз, огромное спасибо вам
Ну и почему вы говорите что не устранилась, если устранилась?
В строке 12 это предупреждение которое говорит что вы плохо пишете.
Правильно объявлять переменную после слова for , то есть for var i := . .
А в строке 13 это уже и не ошибка компиляции, это ошибка выполнения программы.
У вас i идёт от 1 до s.Length , а вы читаете s[i] и s[i+2] .
Что, по вашему, должно прочитаться когда i будет =s.Length ?
Получить символьное представление числа в виде последовательности цифр и пробелов
Заданное натуральное число n. Получить символьное представление этого числа в виде.
Получить символьное представление цифр и пробелов отделяющих группы по три цифры,начиная справа
Дано натуральное число n.Получить символьное представление цифр и пробелов отделяющих группы по три.
Символьное дифференцирование
Требуется реализовать класс Expression с чисто виртуальными методами Expression *diff(); и void.
Символьное дифференцирование
Здравствуйте. Скажите пожалуйста - как в матлабе дифференцировать символьно? Казалось бы, ничего.
Символьное вычисление
Можно ли в матлабе решить символьное выражение? В ходе преобразования через функцию expand.
Символьное присваивание
Здравствуйте, а подскажите пожалуйста как присвоить СИМВОЛЬНО? К примеру, задана переменная nHz как.
На данный способ помимо здравого смысла указывает и кодификатор, в приложении к которому указано следующее:
"Алгоритмы анализа символьных строк, в том числе: подсчёт количества появлений символа в строке; разбиение строки на слова по пробельным символам; поиск подстроки внутри данной строки; замена найденной подстроки на другую строку".
Посмотрим несколько примеров на заданиях с сайта К.Ю.Полякова.
4924
Текстовый файл 24-197.txt содержит строку из заглавных латинских букв X, Y и Z, всего не более чем из 10^6 символов. Определите максимальное количество идущих подряд троек символов ZXY или ZYX.
Алгоритм:
1) заменяем ZXY И ZYX на символ, которого нет в файле (например 1),
2) заменяем все оставшиеся допустимые символы на пробелы,
3) разделяем строку на слова и ищем максимальную длину.
4917
Текстовый файл 24-191.txt содержит строку из заглавных латинских букв, всего не более чем из 10^6 символов. Определите количество подстрок длиной не менее 20 символов, которые начинаются буквой A, заканчиваются буквой B и не содержат других букв A и B, кроме первой и последней.
Алгоритм:
1) Ставим пробелы перед А и после В.
2) Разделяем строку на слова и фильтруем слова по условию (начало А, конец В).
3) Находим количество длину.
4753
Текстовый файл 24-181.txt содержит строку из заглавных латинских букв и точек, всего не более 10^6 символов. Определите максимальное количество идущих подряд символов, среди которых нет гласных букв (символов A, E, I, O, U, Y), но есть не менее 6 точек.
Алгоритм:
1) Заменяем A, E, I, O, U, Y на пробелы,
2) Разбиваем строку на слова и фильтруем по условию,
3) Находим максимальную длину.
4524
Текстовый файл 24-181.txt содержит строку из заглавных латинских букв и точек, всего не более 10^6 символов. Определите максимальное количество идущих подряд символов, среди которых не более одной точки.
Алгоритм:
1) Разбиваем строку на слова по символу точки и определяем длины получившихся слов,
2) Находим максимальную сумму длин двух рядом стоящих слов,
3) Добавляем 1 (точка между)
2715
Текстовый файл 24-j7.txt состоит не более чем из 10^6 десятичных цифр. Найдите максимальную длину последовательности, которая состоит из цифр одинаковой четности. Например, в последовательности 1533244622185452354, 5 последовательностей с нечетными цифрами: 1533, 1, 5, 5, 35; и 5 с четными: 244622, 8, 4, 2, 4. Следовательно, искомая последовательность – 244622. В качестве ответа укажите максимальную длину найденной последовательности.
Алгоритм:
1) Переберем все рядом стоящие пары, если в паре четность элементов разная, то добавим в накапливаемый список второй элемент с предшествующим пробелом,
2) Соединим полученный список в строку и разобьем её по пробелам,
3) найдем максимальную длину полученных слов.
3750
Текстовый файл 24-157.txt состоит не более чем из 10^6 символов и содержит только заглавные буквы латинского алфавита (ABC…Z). Определите символ, который чаще всего встречается в файле между двумя одинаковыми символами. Например, в тексте CCBAABABCBC есть комбинации ABA, BAB, BCB и CBC. Чаще всего – 2 раза – между двумя одинаковыми символами стоит B, в ответе для этого случая надо написать B2 (без пробелов и других разделителей). Если таких символов несколько, выведите тот, который стоит раньше в алфавите.
Алгоритм:
1) Перебираем тройки символов и сохраняем нужные средние,
2) Сортируем найденные символы и вставляем пробел между разными,
3) Соединяем в строку, бьем по пробелу и сортируем по убыванию длины и возрастанию символа,
4) Выводим первый символ первого слова и его длину.
Работа с числами (цифрами) в текстовом файле
24 задание с сайта К. Полякова, № 87:
Текстовый файл 24-1.txt состоит не более чем из 10 6 символов. Определите максимальное нечётное число, записанное в этом файле.
Ответ: 7642289
begin assign(input, '24-1.txt'); var s: string; var b:integer; read(s); // весь текст файла находится в s var max := 0; // для максимального нечётного числа var num:integer; var strnum:string; // накапливает строковое представление числа strnum:=''; for var i := 1 to length(s)-1 do begin if s[i].IsDigit() then // проверяем очередной символ - цифра ли это strnum += s[i] //добавляем очередную цифру в число else if (strnum <> '') then //если встретилась не цифра, а strnum не пустая строка begin Val(strnum, num, b); // переводим в число if (num mod 2 <> 0) and (num > max) then // условие для поиска макс четного max := num; strnum:=''; // сбрасываем на начальное значение, чтобы накапливать новое число end; end; // проверка на случай, если самое большое нечётное в самом конце строки if (s[length(s)].isdigit()) then begin Val(strnum, num, b); if (num mod 2 <> 0) and (num > max) then max:= num; end; print(max) end.
Читайте также: