Изменить код Pascal abc
Добавлено: 16 мар 2014, 21:39
Как изменит код что бы вывод был не в фаил а на экран консоли?
Код: Выделить всё
uses crt;
var f,g: text;
s: string;
i: byte;
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f); rewrite(g);
while not (eof(f)) do
begin
readln(f,s);
if odd(length(s)) then s:=' '+s;
for i:=1 to (50-length(s)) div 2 do
s:=' '+s;
writeln(g,s);
end;
close(f); close(g);
end