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

  • Автор темы -
  • Дата начала

Гость
#1
В 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

Well-Known Member
04.08.2010
310
0
Москва
#2
В 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);