Вопрос по информатике:
Дан текст. подсчитать,сколько раз в тексте встречается симьол "+" и сколько раз-симбол "*". удалить эти символы, сдвинув текст. текст отпечатать.
- 03.05.2016 05:51
- Информатика
- remove_red_eye 4727
- thumb_up 33
Ответы и объяснения 1
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
- 04.05.2016 17:28
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.