Помогите, пожалуйста, написать...

Тема в разделе "Информатика", создана пользователем ViTshmiT, 2 фев 2010.

  1. ViTshmiT

    ViTshmiT New Member

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

    shon New Member

    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. 
     
    shon, 2 фев 2010
    #2

Поделиться этой страницей

Наша группа