Дано предложение. Удалить из него все цифры.
10-11 класс
|
Program enot;
Var s: string;
i,n:integer;
begin
write('введите предложение: ');
read(s);
n:= length (s);
for i:= 1 to n do
case s[i] of
'0': delete (s,i,1);
'1': delete (s,i,1);
'2': delete (s,i,1);
'3': delete (s,i,1);
'4': delete (s,i,1);
'5': delete (s,i,1);
'6': delete (s,i,1);
'7': delete (s,i,1);
'8': delete (s,i,1);
'9': delete (s,i,1);
end; writeln(s);
end.
Другие вопросы из категории
2) составить программу для вычисления периметра треугольника.
ри этих условиях?
какой из знаков: конъюнкции или дизъюнкции, необходимо поставить вместо знака «?»,
чтобы логическое выражение (если это возможно) при любых значениях высказываний
А и В всегда принимала значение «истина».
ПАСКАЛЬ
Задача: Найти сумму всех элементов двумерного массива. Найти максимальное значение и его позицию.
Заранее благодарю :)
Читайте также
элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в
которых последняя цифра нечетная, а само число кратно 3.
Помогите пожалуйста решить в C# (Си шарп)
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.
случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.
цифр(включая однозначные числа). 2. вставить число k перед всеми элементами, в которых есть цифра 1(k вводить с клавиатуры). 3. переставить первые три и последние три элемента местами, сохраняя их следование.
удвоить крайние цифры; иначе – выдать сообщение «Ошибка ввода»."