довести до ума нужно

@Alik313 · Регистрация: 09.12.2015

Author24 — интернет-сервис помощи студентам

Подсчитать и вывести на экран количество пробелов во введенной строке.
Уровень 2. Дополнительные условия:
Ввести с клавиатуры число N.
Перевести исходную строку в другую строку так, чтоб количество всех пробелов между всеми словами увеличилось в N раз. Вывести на экран новую строку.
Уровень 3. Дополнительные условия:
Заменить все пробелы в "увеличенной" строке так, чтоб между каждым словом вместо пробелов стояли символы 1-2-3-4-5 и т.д. Вывести на экран третью строку.

Пример полной обработки:"Привет всем тут"
В строке 2 пробела
введите N=5
Привет всем тут
Привет12345всем12345тут

Pascal

var
s1, s2, s3, s11:string;
np: integer;
i,j: integer;
n: integer;
 
Begin
writeln('Введите строку');
readln(s1);
writeln('Вы ввели строку: ', s1);
np:=0;
for i:=1 to length(s1) do if s1[i] = ' ' then np:=np+1;
writeln('в этой строке ', np,' символов "пробел"');
 
write ('введите N=');
readln(n);
 
for i:=1 to length (s1) do
    if s1[i]<>' '
    then s2:=s2+s1[i]
    else begin s2:=s2+s1[i];
         for j:=2 to n do s2:=s2+chr(ord(' '));
                   end;
writeln ('Дополнительная строка');
writeln(s2);
 
for i:=1 to length (s1) do
    if s1[i]<>' '
    then s3:=s3+s1[i]
else begin
 
s3:=s3+s1[i];
         for j:=1 to n do s3:=s3+chr(ord('1')-1+j);
end;
writeln(s3);
 
end.

но она у меня выводит последнию строчку так: привет 12345всем 12345тут

как убрать пробел?

@Mazilo · 13.12.2015, 21:10

Вместо

Pascal

//...
else begin
s3:=s3+s1[i];
//...

Нужно

Pascal

//...
else begin
s3:=s3;
//...

	13.12.2015, 21:10