Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и...

Question

Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и количество букв "а" в ней; вывести три буквы (свои инициалы) с точкам. В ДЕЛФИ.

Comments

var a, i: integer; s, fio: string;begin readln(s); s := Trim(s); writeln('Length = ', length(s)); for i := 1 to length(s) do begin if s[i] = 'а' then a := a + 1; if (i = 1) or (s[i - 1] = ' ') then fio := fio + UpCase(s[i]) + '.'; end; writeln('A = ', a); writeln(fio);end.

Answer 1

Var
    a, i: integer;
    s, fio: string;

begin
    readln(s);
    s := Trim(s);
    writeln('Length = ', length(s));
    for i := 1 to length(s) do
    begin
        if s[i] = 'а' then a := a + 1;
        if (i = 1) or (s[i - 1] = ' ') then fio := fio + UpCase(s[i]) + '.';
    end;
    writeln('A = ', a);
    writeln(fio);
end.

Comments

спасибо большое)

---

если помогла, то отметь плиз ответ как лучший