пятница, 27 октября 2017 г.

Урок 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

Комментариев нет:

Отправить комментарий