Дано предложение. Добавить к нему в конце столько звездочек, сколько букв в этом слове.

@Deadslol · Регистрация: 22.01.2012

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

Зделайте пожалуйста так чтобы программа не защитывала звёздочки когда пишиш знаки препинания и пробелы!
Дано предложение. Добавить к нему в конце столько звездочек, сколько букв в этом слове.

@s1lver · 07.02.2012, 20:17

Pascal

var c: char;
    k: integer;
    s: string;
begin
 writeln('Введите текст');
 readln(s);
 c:='*';
 write(s);
 for k:=1 to length(s) do
 begin
 if not ((s[k]=' ') or (s[k]='.') or (s[k]=',') or (s[k]='?') or (s[k]='!')) then write(c);
 end;
end.

@Г.Р. · 07.02.2012, 20:18

Pascal

var
   s:string;
   kol,i:longint;
begin
   readln(s);{ввод строки}
   kol:=0;{количество звёзд}
   for i:=1 to ord(s[0]) do
   begin
      case s[i] of {разбор случаев текущего символа}
         'a'..'z','A'..'Z':kol:=kol+1;
      end;
   end;
   write(s);{вывод строки}
   for i:=1 to kol do{вывод нужного количества звёзд}
      write('*');
end.

@Noclip · 07.02.2012, 20:23

Г.Р., а вы длину строки учли?? где же length??

@Г.Р. · 07.02.2012, 20:29

s[0] содержит чар от количества символов (код по аски)
мне так уже привычнее

@Deadslol 0 / 0 / 0 Регистрация: 22.01.2012 Сообщений: 37
		1
	Дано предложение. Добавить к нему в конце столько звездочек, сколько букв в этом слове. 07.02.2012, 19:35. Показов 2227. Ответов 4 Метки нет (Все метки) Зделайте пожалуйста так чтобы программа не защитывала звёздочки когда пишиш знаки препинания и пробелы! Дано предложение. Добавить к нему в конце столько звездочек, сколько букв в этом слове. 0

@Noclip 43 / 27 / 6 Регистрация: 27.09.2011 Сообщений: 280
	07.02.2012, 20:23	4
	Г.Р., а вы длину строки учли?? где же length?? 0

@Г.Р. 71 / 71 / 72 Регистрация: 18.01.2012 Сообщений: 132
	07.02.2012, 20:29	5
	s[0] содержит чар от количества символов (код по аски) мне так уже привычнее 1