[Devil669]

Помогите плиз, имеется простенькая прога,которая считает сумму четных чисел меньших 100. Нужно результат сохранить в типизированном файле. Если не сложно то и последующее чтение опишите.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,c:integer;
begin
c:=0;
//i:=0;
for i:=1 to 99 do
if i mod 2=0 then c:=c+i;
Memo1.Text:=inttostr(c);
end;

Админ: Пользуемся тегами для оформления кода!