Ответ или решение
uses crt; var s:string; i,j:integer; begin Readln (s); While j<3 do begin i:=i+1; If (s[i] = (‘ ‘)) or (s[i] = (‘,’)) then j:=j+1; end; Writeln (s[i-1]); end.
На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.
Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!