Помогите решить хоть какие нибудь задачи из этих упражнений. СРОЧНО НАДО!!!! СПАСИБО...

Question

Помогите решить хоть какие нибудь задачи из этих упражнений. СРОЧНО НАДО!!!! СПАСИБО ЗАРАНЕЕ)))

---

---

Answer 1

Program Zadacha1;
Const c = 'а';
Var s, n, f: String;
i: Integer;
Begin
WriteLn('Введите имя и фамилию:');
ReadLn(s);
For i := 1 To Length(s) Do
If s[i] = c Then
Begin
WriteLn('Строка содержит символ "', c, '"');
Break;
End
Else If i = Length(s) Then
WriteLn('Строка не содержит символ "', c, '"');
For i := 1 To Length(s) Do
If s[i] = ' ' Then
Begin
n := Copy(s, 1, i - 1);
WriteLn('Имя: ', n);
f := Copy(s, i + 1, Length(s));
End;
Write(f, ' ');
WriteLn(n);
ReadLn;
End.