oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 14:31 Titlul subiectului: Problema 27 |
|
|
| Cod: |
{27. scrieti un program care citeste de la tastatura un cuvant si care scrie
in fisierul cuvant.out, cuvantul citit sub forma unei elipse}
program new;
var f:text;
s:string;
i,j,k:integer;
begin
assign(f,'cuvantout.txt'); rewrite(f);
readln(s);
i:=1;
j:=length(s);
while j>=1 do begin
if j>i then begin
for k:=1 to i do write(f,' ');
for k:=i to j do write(f,s[k]);
writeln(f);
end
else begin
for k:=1 to j do write(f,' ');
for k:=j to i do write(f,s[k]);
writeln(f);
end;
i:=i+1;
j:=j-1;
end;
close(f);
end.
|
|
|
