Сегодня мы продолжили работу со строками. Программа, иллюстрирующая работу некоторых функций со строковыми переменными.
program Line_2;
var
S: String;
Rez, P: integer;
S2: string;
begin
writeln ('Введите строку ');
readln (S);
Rez:=length(S);
writeln ('Длина строки: ',Rez);
Delete (S,5,5);
writeln (S);
S2:='А';
P:=Pos(S2, S);
writeln (P);
Insert (S2,S,3);
writeln (S);
end.
Домашнее задание (принимается как всегда в любом удобном для вас виде).
№3. Дана строка. Подсчитать в ней количество вхождений букв r, t, k.
№6. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.
program Line_2;
var
S: String;
Rez, P: integer;
S2: string;
begin
writeln ('Введите строку ');
readln (S);
Rez:=length(S);
writeln ('Длина строки: ',Rez);
Delete (S,5,5);
writeln (S);
S2:='А';
P:=Pos(S2, S);
writeln (P);
Insert (S2,S,3);
writeln (S);
end.
Домашнее задание (принимается как всегда в любом удобном для вас виде).
№3. Дана строка. Подсчитать в ней количество вхождений букв r, t, k.
№6. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.
Комментариев нет:
Отправить комментарий