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

[maria18]

помогите пожалуйста решить задачи... завтра экзамен по delphi

[Вадим Мошев]

rififi mod on
Привет, как дела? Зачем экзамен? Пошли гулять лучше...

[maria18]

помоги лучше, если сможешь...плиз

[kventin_zhuk]

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

помоги лучше, если сможешь...плиз

И чем же тебе помочь? Мы не телепаты)

[spinogryz_ua]

Обиделась что ли...

[Rififi]

maria18

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

Peace, сестрюнь, вассап?

И чем же тебе помочь? Мы не телепаты)

Ну это каГбэ очевидно. Чувиха просит моральной поддержки.

[Sciv]

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



P.S. "Ты сдашь все экзамены, детка!" - спасибо, поржал

[maria18]

дано символьный ряд S. Посчитать, каких символов больше в последовальности "+" или "-".
получить ряд, повторяя 20 раз заданное слово и разделяя "!".

[maria18]

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

maria18

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

Peace, сестрюнь, вассап?

И чем же тебе помочь? Мы не телепаты)

Ну это каГбэ очевидно. Чувиха просит моральной поддержки.

хах спасибки...

[Sciv]

Ну как-то так по первой половине задания:

var s: string;
    i: integer;
    Plus_count,minus_count: integer;
begin
  plus_count:=0;
  minus_count;=0;
  ReadLn(s);
  For i:=1 to length(s) do 
    if s[i]='+' then inc(plus_count) else
    if s[i]='-' then inc(minus_count);
  WriteLn('Количество плюсов: ',plus_count,'; минусов: ',minus_count);
end.

А по второй:

var s, res: string;
      i: integer;
begin
  readLn(s);
  res:='';
  for i:=1 to 20 do 
    if i<20 then res:=res+s+'!' else res:=res+s;
  WriteLn(res);
end.