Задание в Паскале. Дана строка, найти 3 символ

Question

Задание в Паскале. Дана строка, найти 3 символ

Comments

не буду писать всю программу, напишу фрагмент

---

for i:=1 to length (s) do

---

if i=3 then writeln (s[i])

---

s - строка, которую вводите

---

спасибо!!!

---

вообще, по идею можно выывести просто s[3], но я не уверен)

---

все равно спасибо)

Answer 1

Program Task;
Var s: String;
Begin
    WriteLn('Введите строку');
    ReadLn(s);
    WriteLn('Третий символ: ', s[3]);
    ReadLn;
End.

Comments

спасибо!