 Задача на строки, Найти максимальную цифру в строке |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Capt |
  18.04.2006 18:19
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация:  0   |
Помогите реализовать задачку Найти максимальную цифру в строке.
Код программы моей выкладываю: Код program ex10; var i,k,n,max:integer; s:string; begin writeln ('Введите строку'); readln(s); val(s,n,k); for i:=1 to n do max:=n[i]; for i:=2 to n do if n[i]>max then max:=n[i]; write('Макс число''',max); readln end. |
   |
 
|
Сообщений в этой теме
Capt Задача на строки 18.04.2006 18:19
Ozzя program ex10;
var i,k,n,max:integer;
s:strin... 18.04.2006 18:43 APAL program ex10;
var ch:char;
s:string;
i:B... 18.04.2006 23:00 volvo APAL, а то что коды букв больше кодов цифр - не см... 18.04.2006 23:12
APAL Я это предвидел, но не стал вводить проверку:
Во п... 18.04.2006 23:18  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 12.08.2025 4:26 |