) " F"
assign(f,'input.dat');
reset(f);
while not eof(f) do
begin readln(f,st);
end;
) " "
st1:='';
for i:= 1 to length(st) do
st1:= st[i]+st1;
m[k]:=st1;
k:=k+1;
) " g"
assign(g,'output.dat');
rewrite(g);
for i:= 1 to k do writeln(g,m[i]);
3.
program example;
var
f,g:text;
m:array[1..100] of string;
k,i:integer;
begin
assign(f,'input.dat');
reset(f);
k:=0;
while not eof(f) do
begin readln(f,st);
k:=k+1;
st1:='';
for i:= 1 to length(st) do st1:= st[i]+st1;
m[k]:=st1;
end;
assign(g,'output.dat');
rewrite(g);
for i:= 1 to k do writeln(g,m[i]);
end.
? ?
Borland Pascal ?
( , , )?
?
?
?
:
f1 f2. f1 f2, f2 f1. h.
f. g f .
f g. h f, - g .
f, . g f: ) ; ) 3 7; ) .
f, . g, f .
f, . . f , . h, f g , g:
a) ;
b) , ;
c) : , , , .. (, f 4).
f, . . : , , , .. f g , g : ) , , , ..; ) , , , .. (, f 40).
f, . g f, - .. , g f, () .
f: ) 'ab'; ) 'abcdefgh'; ) 'a','b','c','d', 'e','f'
a --> Na b --> Nb c --> Nc
d --> Nd e --> Ne f --> Nf
Na, Nb, Nc, Nd, Ne, Nf - .
Книги-online