Строки

[Zenit10]

Вроде бы лёгкая задача но не получается, много пропустил и забыл уже как работать в паскале. помогите кто может.
дорешал досюда
uses crt;
Var
s:string;
c,min:byte;
begin
clrscr;
for c :=1 to length(s) do
if min > c then
c:=min;
else
writeln(min:6:2);
readkey;
End.

[Карась]

uses crt;
Var
s:string;
c,min:byte;

begin
clrscr;

for c := 1 to length(s) do

  if min > c then  // Чему равен минимум и зачем ево сравнивать с с? 
    c:=min;         // Что вообще должен делать этот цикл?
  else
    writeln(min:6:2); // округление разве применяется к Byte......

readkey;
End.

[Zenit10]

Я поэтому и обратился сюда потому что не могу разобраться с паскалем.

[Карась]

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

[Alex21]

Перед else точку с запятой убери.

[Zenit10]

Вот условие задачи:
Дана строка S. Найти символ, встречающийся в этой строке минимальное количество раз.

[Alex21]

Сообщение от Zenit10

Вот условие задачи:

С этого и надо было начать. На форуме уже решали такие задачи.

[Zenit10]

если не трудно где именно можно ссылку на пост.

[Serge_Bliznykov]

если не заморачиваться с оптимальность алгоритма, то вот полное решение:

function Freq(AllStr : string; CheckChar : char):integer;
var k,count:integer;

begin
  count := 0;
  for k:=1 to Length(AllStr) do
    if AllStr[k]=CheckChar then 
      inc(Count);
  Freq := count;
end;

var
  s : string;
  MinChar : string[1];
  i, CurFreq, MinFreq : integer;
  
begin
  WriteLn('Введите строку: ');
  Readln(S);
  {иницилизируем невероятном значением - больше чем символов в строке}
  MinFreq := Length(S)+1; 
  
  for i:=1 to Length(S) do begin
    {вот в переменную CurFreq получим сколько раз 
       в строке встречаеся i-й символ строки}
    CurFreq := Freq(S, S[i]);
    if CurFreq<MinFreq then
    begin
      MinFreq := CurFreq;
      MinChar := S[i];
    end;
  end;

  if  MinFreq < (Length(S)+1) then 
    WriteLn('Реже всего встречается символ "',MinChar,'" ',MinFreq:1,' раз.' );
      
end.

[puporev]

Если подпрограммы не проходили, то вот обычное, "школьное" решение.

uses crt;
var s,s1:string;  //исходная строка и ее копия
    a:array[1..100]of integer;//массив количеств каждого символа
    i,j,k:integer;//счетчики
    min,imin:integer;//минимальное количесво раз одного знака и его порядковый номер
begin
clrscr;
write('s: ');readln(s);
s1:=s;
for i:=1 to length(s) do
   begin
     k:=0;
     for j:=1 to length(s1) do
     if (s[i]=s1[j]) then
       begin
         k:=k+1;    //считаем сколько раз каждый символ встречается
         a[i]:=k;   //вводим это число в массив
         min:=a[1];imin:=1; //присваиваем минимальное значение первому элементу
        if a[i]<min then
            begin
              min:=a[i]; //находим минимальное
              imin:=i;    //его номер
            end;
       end;
   end;
write('min el=',s[imin]); //выводим символ, который реже всех встречается
readln
end.