program qwerty;
uses crt;
var st,v:string;
ch:char;
i:integer;
begin
clrscr;
writeln('введите текст');
readln(st);
v:='';
for i:=1 to length(st) do
begin
if st[i]<>' ' then v:=v+st[i]+st[i]+st[i]
else
v:=v+st[i];
end;
writeln(v);
readln;
end.
М | Используй тэги кода!! Правила Форума, п.5, правила раздела Задачи, п.2 Lapp |