Может кто-нибудь решить задачу на Паскале?

var s:string; //строка
c:char; //символ для поиска
i,num:integer; //индекс, число символов

begin
i:=0; //обнуляем индекс на всякий
writeln('введите строку '); readln(s); //берем строку
writeln('введите букву '); readln(c); //берем симвоол для поиска

for i:=0 to length(s) do // искать с 1го символа строки до последнего
begin
if s=c then num:=num+1; //если текущий символ строки = искомому, количество увеличить на 1
end;
writeln (num); //вывод количества повторов символа
end.

> не гу-гу

Можно подумать, что если ты сейчас получишь нахаляву полное решение, то сразу станешь "гу-гу")

Диву даюсь, все вместо того. чтобы что-нибудь элементарное выучить, задают сюда вопрос. Сегодня был вопрос, сколько будет 8 в квадрате...

Пиши в ICQ: 228004347, посмотрим что можно сделать

begin
readln(s); read(c); schet:=0;
for i:=1 to length(s) do if (s=' ') and (s[i+1]=c) then inc(schet);
writeln(schet);
end. если че var s:streing; c:char; i,schet:word;

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, DBGrids, ExtCtrls, XMLPropStorage, Arrow, PopupNotifier, db, memds,
mysql50conn, RTTICtrls, SdfData, sqldb, Buttons;

type

{ TfmCashier }

TfmCashier = class(TForm)
BitBtn1: TBitBtn;
Button1: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
DBGrid1: TDBGrid;
Memo1: TMemo;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
TIButton1: TTIButton;
procedure Button13Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Datasource1StateChange(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure GroupBox1Click(Sender: TObject);
procedure TIButton1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
fmCashier: TfmCashier;

implementation

{ TfmCashier }

procedure TfmCashier.DBGrid1CellClick(Column: TColumn);
begin

end;

procedure TfmCashier.Button1Click(Sender: TObject);
begin

end;

procedure TfmCashier.Button7Click(Sender: TObject);
begin

end;

procedure TfmCashier.Datasource1StateChange(Sender: TObject);
begin

end;

procedure TfmCashier.Button13Click(Sender: TObject);
begin
Close;
end;

procedure TfmCashier.GroupBox1Click(Sender: TObject);
begin

end;

procedure TfmCashier.TIButton1Click(Sender: TObject);
begin

end;

initialization
{$I unit1.lrs}

end.

Есть такой оператор в дельфи FindDialog в разделе Dialogs. Пишешь на него прогу:
if button1.click then finddialog.show;