string

[BLADEE]

подскажите как написать програму ато что то не получаетсья вот условия

Дано целое число N(>0) и символ С.Вывести строку длины N, которая состоит из символов C.

зарание спосибо

[IT-man]

S:='';
FOR I:= 1 TO N DO
S:=S+C;
WRITELN(S);

[BLADEE]

вот правельно написал я ?

var
s:string;
i,n:integer;
C:char;
begin
writeln('введите строку');
readln(n);
S:='';
C:='a';
FOR I:= 1 TO N DO
S:=S+C;
WRITELN(S);
end.

выдает ошибку
»*Ошибка ввода. Программа завершена (Program2.pas, строка 7)

оу все разобрался нада было цифры вводить ане буквы

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

[raxp]

s= gdgd
n= 3
...так что ли?
g***d***g***d

в лоб...

var temp, z: string;
begin
 k:= 3; for j:= 1 to k do z:= z+'*';
 for i:= 1 to length(s)-1 do
  temp:= temp + s[i] + z;
 //
 temp:= temp + s[length(s)];

[BLADEE]

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

s= gdgd
n= 3
...так что ли?
g***d***g***d

в лоб...

var temp, z: string;
begin
 k:= 3; for j:= 1 to k do z:= z+'*';
 for i:= 1 to length(s)-1 do
  temp:= temp + s[i] + z;
 //
 temp:= temp + s[length(s)];

не правлеьный код нечгео не выдает

...так что ли?
g***d***g***d

да вот так нада чтобы выдавало

[raxp]

не правлеьный код нечгео не выдает

а подумать?

[BLADEE]

думал не выдает нечего я просто в паскале ABC учусь там не выдает нечего

[Stilet]

там не выдает нечего

А этого кода недостаточно для "выдачи чего-то"
Это сердце метода.
Тебе нужно еще вывести на экран нужные переменные. и ввести строку.
Ты умеешь это делаь процедурами Read Write?
Если нет - иди читать учебник.

[raxp]

думал не выдает нечего...

...очень-очень жаль.

var temp, z: string;
    i,j: integer;
begin
 for j:= 1 to spinedit1.value do z:= z+'*';
 for i:= 1 to length(maskedit1.Text)-1 do
  temp:= temp + maskedit1.Text[i] + z;
 //
 edit1.text:= temp + maskedit1.Text[length(maskedit1.Text)];
end;

[BLADEE]

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

...очень-очень жаль.

var temp, z: string;
    i,j: integer;
begin
 for j:= 1 to spinedit1.value do z:= z+'*';
 for i:= 1 to length(maskedit1.Text)-1 do
  temp:= temp + maskedit1.Text[i] + z;
 //
 edit1.text:= temp + maskedit1.Text[length(maskedit1.Text)];
end;

то что ты показываеш у мен я не работатет потомучто у меня ПАСКАЛЬ ABC а не такой как у тебя в простом обьяснении напиши программу