ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Дан файл, в котором через пробел записаны дробные числа: -1,3; -123; 12,4; 17,6; 132,4; -0,17; 0,23. Вывести на экран сумму данных цифр.
В отчете представить коды программ и результаты работы кода в виде скриншота.
Дан файл, в котором через пробел записаны дробные числа: -1,3; -123; 12,4; 17,6; 132,4; -0,17; 0,23. Вывести на экран сумму данных цифр.
В отчете представить коды программ и результаты работы кода в виде скриншота.
More Questions From This User See All
Answers & Comments
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.
// 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.