[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;

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

[ChinYan]

Оформляйте код тегами.

Вы считаете количество четных чисел, а не их самих

[Dark King]

***
begin
assignfile(output,'имяфайла.расширение');
append(output);
writeln(summa);
close(output);
end;