Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];

Вниз

символы   Найти похожие ветки 

 
Nostalgia ©   (2008-12-24 23:40) [0]

пожалуйста ,подскажите в чем ошибка и как бы её исправить. вот такая прога: нам дан текст; нужно найти кол-во цифр, которые идут в нём подряд.
Program d;
uses SysUtils;
const n=10;
var a:array [1..n] of char;
kol,kol1,i,max:integer;
begin
for i;=1 to n do
read(a[i]);
kol:=0;
for i:=1 to n do
if (a[i]>="o") and (a[i]<="9") then
begin
while not " " do
kol:=i;
i:=i+1;
end;
max:=kol;
if kol1>max then
kol1:=max;
writeln ("vvod max",kol1);
readln;
readln;
end.


 
{RASkov} ©   (2008-12-25 00:10) [1]

> [0] Nostalgia ©   (24.12.08 23:40)
> нужно найти кол-во цифр, которые идут в нём подряд

Тут их сколько:
12бла758бла0320бла
? 4? 9? Что-то не понятно условие


 
Игорь Шевченко ©   (2008-12-25 00:17) [2]

ошибка синтаксическая


 
Германн ©   (2008-12-25 00:24) [3]


> ошибка синтаксическая

Алгоритмические тоже есть.


 
Германн ©   (2008-12-25 00:26) [4]


> Nostalgia ©

Попробуй написать комментарий к каждой строке кода. Глядишь вопрос сам собой и рассосётся.


 
Anatoly Podgoretsky ©   (2008-12-25 00:52) [5]

Ну что вы девушку мучаете.


 
Германн ©   (2008-12-25 00:55) [6]


> Anatoly Podgoretsky ©   (25.12.08 00:52) [5]
>
> Ну что вы девушку мучаете.
>

Login: Nostalgia
E-mail: 210319912@rambler.ru
ICQ: 309911259   (добавить)
Реальное имя: Itaka
Дата рождения: 21.03.1991 знак зодиака: Овен
Город: Харьков
Пол: Мужской

!!!
Глюк?
:)


 
Anatoly Podgoretsky ©   (2008-12-25 01:02) [7]

Глюк!


 
Nostalgia ©   (2008-12-25 21:21) [8]

{RASkov} :тут 4 цыфры. что ещё не ясно?


 
palva ©   (2008-12-25 21:39) [9]


> тут 4 цыфры. что ещё не ясно?

А почему не 3 или 2 ? Они ведь тоже идут подряд.
Потому и спрашивают, потому что не понятен смысл вопроса.


 
Palladin ©   (2008-12-25 21:40) [10]


> Nostalgia ©  (25.12.08 21:21) [8]

вот как о от 0 отличать научишься может что нибудь и получится... ведь не каждый круглшок это тот самый
а так же рекомендую изучить клавиатуру... очень сильно подробно... а то там круглешков целых больше одного и все разные


 
Nostalgia ©   (2008-12-25 21:48) [11]

Palladin : и к чему это было сказано???


 
Nostalgia ©   (2008-12-25 21:49) [12]

не смотрите на синтаксические ошибки. дело не в них


 
Palladin ©   (2008-12-25 21:53) [13]

то что в вопросе - было скопировано и вставлено?


 
Nostalgia ©   (2008-12-25 22:00) [14]

нет


 
Palladin ©   (2008-12-25 22:05) [15]


> Nostalgia ©  (25.12.08 21:49) [14]

то бишь, ты, бездарность, вопросило "в чем ошибка", предоставив заведомо бредовый код, не соответствующий действительности и еще имеешь наглость хамски реагировать на справедливые замечания по предоставленному коду?


 
Nostalgia ©   (2008-12-25 22:11) [16]

всё с вами ясно короче......ничё...сама сделаю.извините за беспокойство.


 
Игорь Шевченко ©   (2008-12-25 22:19) [17]


> сама сделаю


мудрое решение. советую руководствоваться им до создания постов на форуме.


 
Тын-Дын ©   (2008-12-25 23:40) [18]

Удалено модератором


 
Nostalgia ©   (2008-12-26 00:49) [19]

мдя...


 
Германн ©   (2008-12-26 00:59) [20]


> Nostalgia ©   (26.12.08 00:49) [19]
>
> мдя...
>

Что пробуешь сам(а)? И нифига не понимаешь?
Тяжелый случай :(   Особенно в сессионный период!
"Ты всё пела? Это дело. Так поди же..." Ох как умён был дедушка Крылов.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.006 c
15-1229372017
antonn
2008-12-15 23:13
2009.02.08
как в msword поменять местами страницы


2-1230194832
Xmen
2008-12-25 11:47
2009.02.08
Время ожедания сервера


2-1229952777
greg123
2008-12-22 16:32
2009.02.08
Отображение числовых данных по определенному формату в EhGrid-e


2-1229955164
Lera
2008-12-22 17:12
2009.02.08
DbGrid


15-1228851450
Вопросик
2008-12-09 22:37
2009.02.08
Подскажите софтинку





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский