Определить на какую букву заканчивается третье слово в предложении (Pascal ABC)

Question

Мира Попова

Информатика

28 июля, 13:40

Определить на какую букву заканчивается третье слово в предложении (Pascal ABC)

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Артём Агеев · Answer 1

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.