Урок 30 сент

 // 1 фам Написать программу, выводящую на экран строку, составленную из первого и 4  символов исходной строки.
var  a: string;
 s: string;
begin
writeln (' введите строку:');
readln (a);
s:= a [1] + a [4];
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.