|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.12.2008, 20:18 | #11 |
Регистрация: 04.12.2008
Сообщений: 7
|
uses crt;
var n,min,code:integer; s:string; begin clrscr; min:=1000; repeat readln(s); if s<>'22222'then val(s,n,code); if (lenght(s)=3) and (n<min) then min:=n; if (lenght(s)=4) and (n<0) and (min>n) then min:=n; clrscr; untel s='22222'; if min<>1000 then writeln('Min:',min); readln; end. |
04.12.2008, 20:20 | #12 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
length
Until посмотри как пишется и как у тебя Не можете переписать скопируйте
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 04.12.2008 в 20:24. |
04.12.2008, 20:23 | #13 |
Регистрация: 04.12.2008
Сообщений: 7
|
Ура заработала. СПАсибо БОЛЬШОЕ! А другая задача там всё парвильно?
|
04.12.2008, 20:25 | #14 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Извините, но Вы принципиально делаете ошибки?
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
04.12.2008, 20:26 | #15 |
Регистрация: 04.12.2008
Сообщений: 7
|
Нет. в слове унтил я ошиблась когда переписывала на форум, яже вручную писала а то из паскала я и в него незнаю как копировать, в программе это слово правильно было.
|
04.12.2008, 20:31 | #16 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Файлы Паскаля открывайте любым текстовым редактором (Блокнот напр)
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
04.12.2008, 20:34 | #17 |
Регистрация: 04.12.2008
Сообщений: 7
|
А как мне теперь проверить эти самые задачи, повводить числа?
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Уважаемые программисты! | Дашусик | Помощь студентам | 8 | 31.05.2008 19:29 |
Уважаемые программисты, помогите пожалуйста, с чего начать? | irbiss | Свободное общение | 2 | 30.03.2008 19:53 |
Уважаемые программисты, помогите плз) | весел | Свободное общение | 3 | 03.03.2008 10:14 |
Уважаемые мною Программисты , помогите ... | R_N_1 | Свободное общение | 3 | 27.02.2007 23:02 |