Паскаль. Получить новую строку, заменив после первой * знаком - все последующие символы

Question

Информатика

Иня

11 мая, 07:18

Паскаль. Получить новую строку, заменив после первой * знаком - все последующие символы

+1

Ответы (1)

Знаешь ответ?

Христена · Answer 1

Program chik;

var a:string;

l, i:integer;

begin

readln (a);

l:=length (a);

a:=a[1];

for i:=2 to l do

begin

a:=a+'*';

end;

writeln (a);

end.