приветики всем

[BDA]

Sciv, подсказка в первом посте.

[maria18]

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

А язык, язык то какой?

вообще оригинал украинский, а я написала на русском... сори если ошибки

[maria18]

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

Sciv, подсказка в первом посте.

я не понимаю о чём ты...сори

[Poma][a]

Шикарная тема

Мария, по поводу 2 задачи, слова нужно разделять "!"?

№1

var
    s : string;
    i, p, m : Integer;

begin
    ReadLn (s);
    p := 0; m := 0;

    for i := 1 to Length(s) do
        case s[i] of
            '-' : Inc (m);
            '+' : Inc (p)
        end;

    if m > p then
        WriteLn ('- больше')
    else if p > m then
        WriteLn ('+ больше')
    else
        WriteLn ('=')
end.

[Sciv]

я не понимаю о чём ты...сори

Мария, это я туплю, так что сорри с меня.

BDA верно сказал:

Sciv, подсказка в первом посте.

[maria18]

Сообщение от Poma][a

Шикарная тема

Мария, по поводу 2 задачи, слова нужно разделять "!"?

да именно так...

[kventin_zhuk]

Компоненты нужные сами на форму положите.

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  CountPlus, CountMinus: integer;
begin
  CountPlus := 0;
  CountMinus := 0;
  for i := 1 to length(Edit1.Text)  do
  begin
    if Edit1.Text[i] = '+' then
    begin
      inc(CountPlus);
      continue;
    end;
    if Edit1.Text[i] = '-' then
    begin
      inc(CountMinus);
      continue;
    end;
  end;
  if CountPlus = CountMinus then
  begin
    Memo1.Text := 'Одинаковое количество';
    Exit;
  end;
  if CountPlus > CountMinus then
      Memo1.Text := 'Плюсов больше'
  else
      Memo1.Text := 'Минусов больше';
end;

[maria18]

Сообщение от Poma][a

Шикарная тема

Мария, по поводу 2 задачи, слова нужно разделять "!"?

№1

var
    s : string;
    i, p, m : Integer;

begin
    ReadLn (s);
    p := 0; m := 0;

    for i := 1 to Length(s) do
        case s[i] of
            '-' : Inc (m);
            '+' : Inc (p)
        end;

    if m > p then
        WriteLn ('- больше')
    else if p > m then
        WriteLn ('+ больше')
    else
        WriteLn ('=')
end.

аааа... спасибки...можешь ещё помочь?

[maria18]

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

Компоненты нужные сами на форму положите.

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  CountPlus, CountMinus: integer;
begin
  CountPlus := 0;
  CountMinus := 0;
  for i := 1 to length(Edit1.Text)  do
  begin
    if Edit1.Text[i] = '+' then
    begin
      inc(CountPlus);
      continue;
    end;
    if Edit1.Text[i] = '-' then
    begin
      inc(CountMinus);
      continue;
    end;
  end;
  if CountPlus = CountMinus then
  begin
    Memo1.Text := 'Одинаковое количество';
    Exit;
  end;
  if CountPlus > CountMinus then
      Memo1.Text := 'Плюсов больше'
  else
      Memo1.Text := 'Минусов больше';
end;

оооочень благодарна..

[Poma][a]

аааа... спасибки...можешь ещё помочь?

За то удовольствие, что мне доставило прочтение данной темы - конечно Да!

var
     s, word : string;
     i : Integer;

begin
    ReadLn (word);
    s := '';

    for i := 1 to 20 do
        s := s + word + '!';

    Delete (s, Length(s), 1);

    WriteLn (s)
end.