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

[maria18]

Сообщение от 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.

спасибки


Дано два текста. Создать новый текст, который состоится из слов первого и второго текстов.
Дано символьная строка S. Определить, каких букв больше в последовательности: "а" или "о".
Дано символьная строка S. Во втором предложении подсчитать количество символов.

[Poma][a]

№1
Пока отложим (спать хочется )
№2

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
            'a' : Inc (m);
            'o' : Inc (p)
        end;

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

№3

var
    s : string;
    i, count : Integer;

begin
    ReadLn (s);
    while s[i] <> '.' do
       Inc (i);
    
    Inc (i);
    coutn := i;

    while s[i] <> '.' do
        Inc (i);

    WriteLn (i-count)
end.

Не проверял..

[Jaiden]

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

Дано символьная строка S. Определить, каких букв больше в последовательности: "а" или "о".

Немного запоздал, ну и ладно. =)

Предполагаю, что необходимо вывести количество встречаемых символов А и О (в обоих раскладках клавиатуры и регистрах).

var
S: string;
i: integer;
a,o: integer;

begin

writeln ('Введите строку');
readln (S);

for i:=1 to length(S) do
    begin
    
     if (s[i]='а') or (s[i]='А') or (s[i]='A') or (s[i]='a') then
       Inc(a);
       
     if (s[i]='o') or (s[i]='O') or (s[i]='о') or (s[i]='О') then
       Inc(o);
       
    end;

writeln ('Кол-во A: ', a);
writeln ('Кол-во O: ', o);

end.

[maria18]

спасибо всем большущее

[maria18]

помогите ещё с одной
Дано символьная строка S. Определить в последовательности количество слов длиной не более четырех символов.