Решаем задачи Абрамян на Паскале. String12

String12. Дана непустая строка S и целое число N(>0). Вывести строку, содержащую символы строки S, между которыми вставлено по Nсимволов «*» (звездочка).

Решение:

program String12;
var
  N,i,i2:integer;

  S,S2:string;

begin
 Write('S:');
 Readln (S);
 Write('N:');
 Readln (N);
 S2:=S[1];
 for i:=2 to Length(S) do
  begin
   for i2:=1 to N do S2:=S2+'*';
   S2:=S2+S[i];
  end;
 Writeln(S2);
end.

program String12;

var

N,i,i2:integer;

S,S2:string;

begin

Write('S:');

Readln (S);

Write('N:');

Readln (N);

S2:=S[1];

for i:=2 to Length(S) do

begin

for i2:=1 to N do S2:=S2+'*';

S2:=S2+S[i];

end;

Writeln(S2);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String12

Комментарии:

Добавить комментарий Отменить ответ