дана строка символов. удалить из нее первый знак препинания. Язык pascal.
10-11 класс
|
const a:array[1..4] of string=('!','?','.',',');
var s:string;
i,j,k:integer;
begin
readln(s);
for i:=1 to length(s) do begin
for j:=1 to 4 do
if s[i]=a[j] then k+=1;
if k<>0 then break;
end;
delete(s,i,1);
writeln(s);
end.
Другие вопросы из категории
Читайте также
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
ровно две запятые)
1)Для заданных натуральных чисел a и b вычислить их наибольший общий делитель НОД(a.b), используя алгоритм Евклида:
НОД(a,b)=a eсли b=0
НОД(a,b)=b если a=0
НОД(a,b)= НОД(a mod b,b) если a>b и b не = 0
НОД(a,b)= НОД(a,b mod a) если a<b и a не = 0
2)С
клавиатуры вводится строка символов, представляющая собой предложение со
знаками препинания (точка, запятая, восклицательный знак). Вывести на
экран все слова данного предложения, не содержащие цифр.
Сколько раз среди данных символов встречаться цифра?
паскаль. подскажите