Урок 27 октября

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

program upr4_3_2v;

var    s, rez : string;  k: integer;

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

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

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

Урок №5 (        )Задачи со строковыми величинами

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

 program upr4_3_2b;

var    a: string;  k: integer;

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

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

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

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

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

№3Задача. С клавиатуры вводят слово. Составить программу, которая:выводит на экран первый, второй и предпоследний символы;

program upr4_3_2v;

var    a: string;  k: integer;

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

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

     writeln ('первая буква слова: ', ________); 

     writeln ('вторая буква слова: ', __________); 

     writeln ('предпоследняя буква слова: ', ____________);  end.

№4 Задача. С клавиатуры вводят слово. Составить программу, которая определяет, четно или нечетно количество символов в слове.

program upr4_3_2g;

var    a: string;  k: integer;

begin

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

_____________  {определение длины строки}

     if k mod 2=0   {определение чётности количества букв в строке}

        then writeln ('количество символов строки чётно')

        else writeln ('количество символов строки нечётно');end