Необходимо из строки символов вывести на экран символ с максимальным кодом по таблице ASCII

@REBIRD · Регистрация: 19.12.2012

Студворк — интернет-сервис помощи студентам

Необходимо из строки символов вывести на экран символ с максимальным кодом по таблице ASCII, а также его код, с применением символьного типа данных. Заранее благодарен.

@CodeR · 20.12.2012, 15:07

Pascal

Var s:string;
    ch:char;
    i:byte;
Begin
    write('Введите строку символов: ');readln(s);
    ch:=s[1];
    For i:=2 to Length(s) do
     if ord(s[i])>ord(ch) then ch:=s[i];
    writeln('Max символ = "',ch,'" его код = ',ord(ch));
    readln;
End.

@REBIRD 1 / 1 / 0 Регистрация: 19.12.2012 Сообщений: 11
		1
	Необходимо из строки символов вывести на экран символ с максимальным кодом по таблице ASCII 20.12.2012, 14:56. Показов 2173. Ответов 1 Метки нет (Все метки) Необходимо из строки символов вывести на экран символ с максимальным кодом по таблице ASCII, а также его код, с применением символьного типа данных. Заранее благодарен. 0

Опции темы

Необходимо из строки символов вывести на экран символ с максимальным кодом по таблице ASCII

Решение