Кто может объяснить? 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.

Question

Информатика: Кто может объяснить? 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.​

tamila2002саша2004 · Answer

Добавление после каждой буквы исходной строки s n звёздочек.Объяснение:БылоWarN ввели 2СталоW **a**r**...

Кто может объяснить? 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.​

Кто может объяснить? 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.