Дана строка без пробелов. Первый и последний символ строки заменить на “*”

Категория: Delphi/Pascal

2012-02-23 21:40:15

code: #pascal

program ffr;
var s:string;
 
begin
writeln ('Vvedite stroku:');
readln (s);
s[1]:='*';
s[length(s)]:='*' ;
writeln('Isxodnaia stroka ',s);
 
end.

Поделиться:

Sample Code