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

[BBorr1]

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


помогите вообще не могу сделать(

[Niro]

В соседней теме, с таким же заданием Вам было дано решение, от VIK_aka_TOR
http://programmersforum.ru/showthread.php?t=186897

[Кольша]

VAR
s,f:string;
i:integer;
begin
s:='text';
for i:=1 to length(s) do begin
if (s[i]<>'') or (s[i]<>' ') or (s[i]<>'') or (s[i]<>'.') or (s[i]<>'') or (s[i]<>',') or (s[i]<>'-') or (s[i]<>'_') or (s[i]<>'=') or (s[i]<>'+') then/////список дополните сами
f:=f+'*';
end;
s:=s+f;