Текст программы, определяющей во введенном тексте количество символов, предшествующих двоеточию:
Const Q=':';
Var S:String;
D:Integer;
Begin
Write('Введите текст: '); Readln(S);
D:=Pos(Q,S);
If D<>0 Then Writeln('Количество символов перед двоеточием: ', ______ )
Else Writeln('Двоеточие в тексте отсутствует');
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, определяющей, содержит ли введенный текст символы, отличные от букв и пробела:
Const Str_1='0123456789!@#$%^&*()_+|{}:"<>?[];,./\';
Var Str:String;
i,kl:Integer;
Begin
Write('Введите текст: '); Readln(Str);
kl:=0;
For i:=1 to Length(Str) Do
If ______ <>0 Then Begin kl:=1; Break; End;
If kl=0 Then Writeln('Текст не содержит символы, отличные от букв и пробела')
Else Writeln('Текст содержит символы, отличные от букв и пробела');
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, определяющей, является ли введенный текст идентификатором (проверяется только первая буква текста):
Const Alph='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijlmnopqrstuvwxyz_';
Var S:String;
Begin
Write('Введите текст: '); Readln(S);
If ________ <>0 Then Writeln('Текст может быть идентификатором')
Else Writeln('Текст не является идентификатором');
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, выводящей на экран символы, расположенные во введенном тексте внутри скобок:
Const S1='(';
S2=')';
Var S:String;
k1,k2,k3:Integer;
Begin
Write('Введите текст: '); Readln(S);
k1:=Pos(S1,S)+1;
k2:=Pos(S2,S);
if (k2>k1) then k3:=k2-k1-1;
Writeln('Результат: ',Copy( _____ ));
End.
Введите аргументы функции (без пробелов, через запятую, прописными буквами).
Текст программы, заменяющей во введенном тексте двоеточие на точку с запятой:
Var Str:String;
i:Integer;
Begin
Write('Введите текст: ');
Readln(Str);
For i:=1 To _______ Do
If Str[i]=':' Then Str[i]:=';';
Writeln('Результат: ', Str);
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, заменяющей точку во введенном тексте восклицательным знаком:
Var S:String;
i:Integer;
Begin
Write('Введите текст: ');
Readln(S);
For i:=1 To Length(S) Do
If S[i]='.' Then _______ ;
Writeln('Результат: ', S);
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, определяющей длину введенной строки:
Var S:String;
D:Integer;
Begin
Write('Введите текст: ');
Readln(S);
D:= ________ ;
Writeln('Длина строки: ',D);
End.
Введите выражение (без пробелов, прописными буквами), вычисляющее длину введенной строки.
Текст программы, определяющей длину введенной строки:
Var Str:String;
Begin
Write('Введите текст: ');
Readln(Str);
Writeln('Длина строки: ', ___________ );
End.
Введите выражение (без пробелов, прописными буквами), вычисляющее длину введенной строки.
Текст программы, определяющей длину первого слова введенной строки:
Var Str:String;
D:Integer;
Begin
Write('Введите текст: ');
Readln(Str);
D:=Pos(' ',Str);
Writeln('Длина первого слова текста: ' ______ ,);
End.
Введите выражение (без пробелов, прописными буквами), вычисляющее длину первого слова введенной строки.
Текст программы, определяющей длину последнего слова введенной строки:
Var Str:String;
i,D:Integer;
Begin
Write('Введите текст: ');
Readln(Str);
For i:= _____ DownTo 1 Do
If Str[i]=' ' Then Begin D:=Length(Str)-i; Break; End;
Writeln('Длина последнего слова текста: ',D);
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, определяющей количество символов * во введенном тексте:
Var Str:String;
i,k:Integer;
Begin
Write('Введите текст: ');
Readln(Str);
k:=0;
For i:=1 To Length(Str) Do
If ____ ='*' Then k:=k+1;
Writeln('Количество символов * в тексте: ',k);
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, определяющей, сколько раз во введенном тексте содержится группа букв abc:
Const Q='abc';
Var G,T:String;
P,D:Integer;
Begin
Write('Введите текст: '); Readln(T); G := T;
P:= _____;
D:=0;
While P<>0 Do
Begin
D:=D+1;
Delete(T,3,P);
P:= _____;
End;
Writeln('Количество групп букв abc: ', D);
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, определяющей, сколько слов во введенном тексте начинается с буквы К:
Const Q=' '; K='K';
Var V,G,T:String;
P,kol:Integer;
Begin
Write('Введите текст: '); Readln(T);
G:=T; kol:=0; P:=Pos(Q,T);
While P<>0 Do
Begin
V:=Copy(T,1,P-1); Writeln(V);
If ( _____ =K) Then kol:=kol+1;
Delete(T,1,P);
P:=Pos(Q,T);
End;
V:=T; Writeln(V);
If ( _____ =K) Then kol:=kol+1;
Writeln('Количество слов, начинающихся на букву K: ', kol);
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, определяющей, является ли введенный текст десятичной записью вещественного числа:
Const Str_1='0123456789.';
Var Str:String;
i,kl:Integer;
Begin
Write('Введите текст: '); Readln(Str);
kl:=0;
For i:=1 to Length(Str) Do
If __________ =0 Then Begin kl:=1; Break; End;
If kl=0 Then Writeln('Текст является десятичной записью вещественного числа')
Else Writeln('Текст не является десятичной записью вещественного числа');
End.
Введите пропущенное выражение (без пробелов, прописными буквами).
Текст программы, удаляющей часть введенного текста, заключенную в скобки (вместе со скобками):
Const S1='(';
S2=')';
Var S:String;
k1,k2,k3:Integer;
Begin
Write('Введите текст: '); Readln(S);
k1:=Pos(S1,S);
k2:=Pos(S2,S);
if (k2>k1) then
begin
k3:=k2-k1+1;
Delete(_______);
end;
Writeln('Результат: ',S);
End.
Введите аргументы процедуры (без пробелов, через запятую, прописными буквами).
Для доступа к отдельному символу в строке типа STRING используются скобки
Для определения фактической длины текстовой строки используется функция
Для строковой переменной A верно составлено описание
Осуществить в строке поиск определенного фрагмента можно с помощью функции
По умолчанию размер строки типа STRING принимается равным ________ символам (введите цифрами)