Вывести строку, содержащую символы строки S, между которыми вставлено по N символов "*"

@investr · Регистрация: 30.11.2011

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

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

@КонецСвета · 15.12.2011, 00:34

Pascal

uses crt;
var s,sn: string;
    i,j,k,l: integer;
begin
write('s=');
readln(s); sn:='';
write('k=');
readln(k);
for i:=1 to length(s) do
    begin
    sn:=sn+s[i];
    for j:=1 to k do
        sn:=sn+'*';
    end;
delete(sn,length(sn)-k+1,k);
write('s=',sn);
readkey
end.

@investr 1 / 1 / 2 Регистрация: 30.11.2011 Сообщений: 77
		1
	Вывести строку, содержащую символы строки S, между которыми вставлено по N символов "" 15.12.2011, 00:18. Показов* 1435. Ответов 1 Метки нет (Все метки) Дана непустая строка S и целое число N (>0). Вывести строку, содержащую символы строки S. между которыми вставлено по N символов "*"(звездочка) 0

	15.12.2011, 00:34

Опции темы

Вывести строку, содержащую символы строки S, между которыми вставлено по N символов "*"

Решение