Составьте программу, которая находит первую позицию пробела в строке s, А ЗАТЕМ ПРОВЕРЯЕТ, есть ли еще пробелы в данной строке. Строка вводится с клавиатуры.
паскальабс
vimmortal2:
pascal?
Ответы
Ответ дал:
4
Ответ:
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('Пробелов больше нет');
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад