Question

Составьте программу, которая находит первую позицию пробела в строке s, А ЗАТЕМ ПРОВЕРЯЕТ, есть ли еще пробелы в данной строке. Строка вводится с клавиатуры.
паскальабс

Answer 1

Ответ:

var

s: string;

i,dop: integer;

begin

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

readln(s);

writeln(pos(' ', s));

dop := Length(s);

for i := 1 to dop do

if s[i]=' ' then

write(' ')

end.

Если нужно вывести ВСЕ пробелы, то:

dop := Length(s);

for i := 1 to dop do

if s[i]=' ' then

write(' ')

end.

Проверка на наличие 2+ пробелов (размещать в конце (перед end.)):

if i > 3 then

 write('Пробелы ещё есть')

else

 writeln('Пробелов больше нет');