Помогите, пожалуйста, написать программу на Паскале.
Дана строка. Верно ли, что второе слово начинается на ту же букву, которой заканчивается третье слово?

1

Ответы и объяснения

2013-11-26T18:45:00+04:00
Var 
s1,s2: string; 
begin 
Write( 's1: ' ); 
ReadLn(s1); 
Write( 's2: ' ); 
ReadLn(s2); 
if s1[ 1 ] = s2[ length(s2) ] then 
write( 'Da' ) else write( 'Net' ); 
ReadLn; 
end.