Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Дан файл, в котором через пробел записаны дробные числа: -1,3; -123; 12,4; 17,6; 132,4; -0,17; 0,23. Вывести на экран сумму данных цифр.

В отчете представить коды программ и результаты работы кода в виде скриншота.

Answer 1

var

f:text;

a,sum:real;

begin

assign(f,'input.txt');

reset(f);

sum:=0;

while not eof(f) do

begin

read(f,a);

sum:=sum + a;

end;

close(f);

writeln('sum= ',sum:0:2);

end.

Answer 2

// PascalABC.NET

// 1. Если дробная часть отделена запятой

begin

 Assign(input, 'MyFile.txt');

 ReadString.Replace(',', '.').ToReals.Sum.Print

end.

// 2. Если дробная часть отделена точкой

begin

 Assign(input, 'MyFile.txt');

 ReadString.ToReals.Sum.Print

end.