Дана непустая строка S и целое число N (> 0).

@muxomor · Регистрация: 07.11.2009

Author24 — интернет-сервис помощи студентам

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

Delphi

var
A:string;
i,n:integer;
 begin
 writeln('vvedite slovo');
 readln(A);
writeln('vvedite n');
 readln(n);
 for I := 1 to n do  begin
 A:='*'+A+'*';
 end;
 writeln(A);
 readln;
end.

в начале и в конце добавляет, а как добавить между символами?

((

@Тамила · 03.02.2010, 15:53

Pascal

uses crt;
var
s,k:string;
i,n:integer;
begin clrscr;
write('vvedite slovo: ');
read(s);
write('n=');
read(n);
for i:=1 to n do
k:=k+'*';
writeln(k);
for i:=1 to length(s) do
 begin
  write(s[i],k);
 end;
readkey;
end.

Добавлено через 1 минуту

Pascal

1	writeln(k);

это можно убрать...

@muxomor · 03.02.2010, 16:10 **[ТС]**

uses crt;
на эту строчку ругается

((

Добавлено через 5 минут
все, изменил маленько код, все работает

))) спс

)))

@Тамила · 04.02.2010, 14:21

Сообщение от muxomor

все, изменил маленько код, все работает))) спс)))

Не по теме:

на здоровье...

@muxomor 1 / 1 / 0 Регистрация: 07.11.2009 Сообщений: 49
	03.02.2010, 16:10 [ТС]	3
	uses crt; на эту строчку ругается(( Добавлено через 5 минут все, изменил маленько код, все работает))) спс))) 0

@Тамила 753 / 546 / 211 Регистрация: 12.11.2009 Сообщений: 1,100
	04.02.2010, 14:21	4
	Сообщение от muxomor все, изменил маленько код, все работает))) спс))) Не по теме: на здоровье... 0