Паскаль. Символьные и строчные переменные

  • Автор темы sestrenka141989
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

sestrenka141989

Гость
#1
Дано текст. Найти наибольшее количество цифр стоящих в нем рядом
 
09.11.2009
665
1
#4
Вроде работает
Код:
var s:string;
k,k2,i:integer;

begin
writeln('vvedit text');
readln(s);
k:=0;
k2:=0;
for i:=1 to length(s) do
begin
if (s[i]='0')or(s[i]='1')or(s[i]='2')or(s[i]='3')or(s[i]='4')or(s[i]='5')or(s[i]='6')or(s[i]='7')or(s[i]='8')or(s[i]='9') then
begin
k2:=k2+1;
end
else
begin
if k<k2 then k:=k2;
k2:=0;
end;
end;
writeln('maksimalnoje kolichesto zifr stojachih rjadom = ',k);
readln;
end.
 

hosm

* so what *
18.05.2009
2 442
9
#5
Dock1100
может, проще с множествами?) а то слишком много сравнений(

Добавлено:
Код:
if (s[i] in ['0'..'9']) then //если я правильно помню
 
Статус
Закрыто для дальнейших ответов.