Составьте программу, определяющую, на какую букву начинается второе слово в предложении.

Question

Информатика

Марюша

3 марта, 05:15

Составьте программу, определяющую, на какую букву начинается второе слово в предложении.

+3

Ответы (1)

Знаете ответ?

Томуля · Answer 1

Если не рассматривать сложные предложения (наличие кавычек, скобок и т. д.), то так:

var

s:string;

n:integer;

begin

writeln ('Введите предложение:') ;

readln (s) ;

n:=pos (' ', s) ;

writeln ('Ответ: ', s[n+1])

end.