подскажите с прогой ( строка )

[DimoniusX]

С клавы вводится строка , содержащая не более 60 символов.Отдельные слова разделены пробелами.
Найти самую длинную цепочку одинаковых символов.Вывести длину цепочки и символ ее образующий.

Заранее спасибо

[Sazary]

Имеем счетчик cnt и текущее максимальное значение tek (изначально равно 0). А также переменную ch типа char (чтобы запоминать символ).
Изначально ch равен первому символу.
Проходите по строке от второго символа до последнего.
Если текущий символ равен предыдущему, то увеличиваете счетчик.
Иначе:
если cnt > tek, то tek := cnt; ch = предыдущий символ; cnt := 1;

Прочитайте правила и делайте адекватные заголовки.

[DimoniusX]

благодарю , но хотелось бы поподробнее

[Sazary]

А куда еще подробнее?
Что конкретно не понятно?
Напишите код в соответствии с описанием. По крайней мере для тех частей, которые поняли.

[DimoniusX]

program stroka;
const n = 60;
var str : string[n];
ch:char;
i : integer;
cnt,tek:real;
begin
ch:= str[1];
tek:=0;
cnt:= 1;
for i:=2 to n do
begin
if ch = pred(ch) then
tek:= tek + 1;
end;
begin
if cnt>tek then tek:=cnt;
end;
end.

В чем конкретно ошибка?

[Sazary]

В чем конкретно ошибка?

В том, что вы написали бред (уж извините).

cnt,tek:real;

это целочисленные счетчики, так зачем их делать вещественного типа? Но это ладно, не критично.

ch:= str[1];

А строка, видимо, сама должна появиться в str.

if ch = pred(ch) then

А это что? Вообще не к месту.
--------
Складывается ощущение, что вы знаете язык (на начальном уровне), но просто не хотите сами выполнять задание.
Это я к тому, что синтаксические ошибки вы можете исправить и сами (тем более, что компилятор сам указывает где ошибка).

program stroka;
uses crt;
const n = 60;
var str : string[n];
ch:char;
i : integer;
cnt,tek : integer;
begin
clrscr;
readln(str);
ch:= str[1];
tek:=0;
cnt:= 1;
for i:=2 to n do
 begin
 if str[i] = str[i-1] then
  begin
  inc(cnt);
  end
 else
  begin
  if cnt>tek then
   begin
   tek := cnt;
   ch := str[i-1];
   cnt := 1;
   end
  else cnt := 1;
  end;
 end;
writeln;
writeln(ch,' - dlina=',tek);
readln;
end.

[DimoniusX]

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

в общем спасибо

зы ошибки компилятор сначала выводил , а потом перестал...не знаю почему

[puporev]

а в универе обьясняют не супер

А Университет, если это конечно Университет, а не бывший техникум общественного питания, не дет-сад, там самому учиться надо.

[DimoniusX]

Ну в общем то да, но там подразумевается что основы программирования мы должны знать со школы, и не подразумевается что у кого то могло не быть паскаля

[puporev]

подразумевается что основы программирования мы должны знать со школы

Да, а кроме того основы математики, физики, химии и много еще чего, но на этом форуме куча просителей, не умеющих сложить 2 простые дроби.