Написать программы в Паскаль
1. Определить, если ли в тексте восклицательный знак. Если есть,
вывести также порядковый номер первого восклицательного знака.
2. Удалить все пробелы из файла. Результат записать в новый файл.
1. Определить, если ли в тексте восклицательный знак. Если есть,
вывести также порядковый номер первого восклицательного знака.
2. Удалить все пробелы из файла. Результат записать в новый файл.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
№1
begin
var n:=Pos('!',ReadlnString);
if n>0 then Writeln('Первый восклицательный знак на позиции ',n)
else Writeln('Восклицательных знаков не найдено')
end.
Пример
Как хорошо! Вот сладкий плод ученья!
Первый восклицательный знак на позиции 11
№2
begin
WriteAllText('output.txt',ReadAllText('input.txt').Replace(' ',''))
end.
Примечание: входной файл input.txt, выходной output.txt