Pascal — различия между версиями

Материал из synset
Перейти к: навигация, поиск
Строка 8: Строка 8:
  
 
Работа с текстовыми файлами. Чтение и запись:  
 
Работа с текстовыми файлами. Чтение и запись:  
<pre class="brush:pascal;">
+
<pre class="brush:pascal; gutter: false;">
 
var
 
var
 
   f1,f2:text;
 
   f1,f2:text;

Версия 13:11, 16 февраля 2010

Pascal


begin
end.

Работа с текстовыми файлами. Чтение и запись:

var
   f1,f2:text;
   sum,a,b:integer;
begin
   Assign(f1,'input.dat');
   Assign(f2,'output.sol');
   Rewrite(f2);
   Reset(f1);
   Read(f1, a);
   Read(f1, b);
   close(f1);
   sum:=a+b;
   Write(f2, sum);
   close(f2);
 end.