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.​

Answer 1

Ответ:

Добавление после каждой буквы исходной строки s n звёздочек.

Объяснение:

Было

War

N ввели 2

Стало

W **a**r**