Question

Дана строка S, подсчитать количество слов в строке. Словом,
считать набор символов любой длины (от 1 до 255), кроме
знаков препинания и цифр. Если в строке есть прописные
латинские буквы, то их удалить.
На Паскале нужно

Answer 1

Программа:

Pascal:

var

 str, st: string;

 count, i: integer;

 c: char;

begin

 write('Введите строку: ');  readln(str);

 st := str;

 str := ' ' + str;

 for i := 1 to length(str) - 1 do

 if (str[i + 1] <> ' ') and (str[i] = ' ') then inc(count);

 writeln('Слов в строке: ', count);

 

 for c := 'A' to 'Z' do

   while pos(c, st) > 0 do

     delete(st, pos(c, st), 1);

   writeln('Заменённая строка: ', st);

end.