Размещено 4 года назад по предмету
Информатика
от semendodik
Кто может объяснить? var n,i,e:integer; s,d:string; begin Write('s:'); Readln (s); Write('n:'); Readln (n); d:=s[1]; for i:=2 to Length(S) do begin for e:=1 to N do d:=d+'*'; d:=d+s[i]; end; Writeln(d); end.