дан текст. подсчитать,сколько раз в тексте встречается симьол "+" и сколько раз-симбол "*". удалить эти символы, сдвинув текст. текст отпечатать.
10-11 класс
|
var
s: string;
i, n1, n2: integer;
begin
writeln('Введите текст');
readln(s);
n1 := 0;
n2 := 0;
for i := 1 to length(s) do
case s[i] of
'+': n1 := n1 + 1;
'*': n2 := n2 + 1;
else write( s[i])
end;
writeln;
writeln('+ удалено ', n1, ', * удалено ', n2)
end.
Тестовое решение:
Введите текст
Y:=35.45*x+2*y/(z-4);
Y:=35.45x2y/(z-4);
+ удалено 1, * удалено 2
Комментарий удален
нету ,просто так
Комментарий удален
Другие вопросы из категории
решение уравнения вида kx + b = 0, где k, b - произвольные
постоянные.
2)
форме: | Слово | Длина_слова | Начальная_буква_слова | Последняя_буква_слова | Элементы ввода объединить в массив.
Читайте также
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
Задание:
Определить сколько раз в тексте встречается слово "Давши".
Исходный текст:
Не давши слово-крепись,
А давши - Держись
3) Количество четных цифр в нем.
желательно в Basic. но можно и паскаль