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

Question

Информатика

Флорентина

9 апреля, 01:22

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

+4

Ответы (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.