134
pakeitimai
No edit summary |
|||
program SukeistiSkaicius;
var duomenys, rezultatai: text;
begin
assign(duomenys, 'duomen.txt'); reset(duomenys);
assign(rezultatai, 'rezult.txt'); rewrite(rezultatai);
read(duomenys,
write(rezultatai,
close(duomenys);
close(rezultatai);
|
pakeitimai