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

Question

Информатика

Светланка

14 ноября, 04:04

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

+5

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