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

Question

Информатика

Василисса

25 мая, 01:12

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

+2

Ответы (1)

Знаете ответ на вопрос?

Алексеич · Answer 1

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

var

s:string;

n:integer;

begin

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

readln (s) ;

n:=pos (' ', s) ;

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

end.