Файловый тип данных(2)

[Guest]

В Pascal ABC
1. Вычислить сумму 3-ех цифр так, чтобы сумма в одном файле была, а числа в другом

Program p1;
var
a,b,c,sum:integer;
f1,f2:text;
begin
assign(f1,'chisla.txt');
assign(f2,'summa.txt');
reset(f1);
read(f1,a,b,c);
sum:=a+b;
append(f2);
writeln(f2,'a'+'b'+'c''=,',sum);
close(f2);
close(f1);
end.

 

[nayke]

В Pascal ABC
1. Вычислить сумму 3-ех цифр так, чтобы сумма в одном файле была, а числа в другом
...

Я как бы не очень понял ты похвастался?? Хоть бы проблему описал.. из того что бросилось в глаза

sum:=a+b;
append(f2);
writeln(f2,'a'+'b'+'c''=,',sum);

может

 sum:=a+b+c;
Rewrite(f2);
writeln(f2,'a+b+c= ',sum);