Урок 30 сент

 // 1 фам Написать программу, выводящую на экран строку, составленную из первого и последнего символов исходной строки.

var  a: string;

 s: string;

begin

writeln (' введите строку:');

readln (a);

s:= a [1] + a [length(a)];

writeln ('строка, состоавленная из первого символа исходной строки:',s);

end.

// фам №2 Задача. Дана строка составить слово из первой и предпоследней буквы строки

var    s, rez : string;  k: integer;

begin     write ('Введите слово:  '); readln (s);

     k:= length(s);  {определение длины строки}

     rez := s [1]+ s [k-1] ;   writeln (' новое слово: ' rez, );  end.

 

//фам №3Задача. С клавиатуры вводят слово. Составить программу, которая проверяет, не совпадают ли первая и последняя буквы слова;

var    a: string;  k: integer;

begin     write ('Введите слово:  '); readln (a);

     k:= length(a);  {определение длины строки}

     if a[1]=a[k]   {сравнение первой и последней букв}

        then writeln ('первая и последняя буквы слова совпадают')

        else writeln ('первая и последняя буквы слова не совпадают'); end.