Предмет: Информатика,
автор: maks199803
Помогите решить плз !!!!
В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число. Написать функцию без параметров для нахождения суммы этих положительных чисел.
Заранее спасибо !!!
Написать нужно на Паскаль АВС
Ответы
Автор ответа:
0
procedure sumd;
var s,n: integer;
begin
s:=0; n:=0;
repeat
s:=s+n;
read(n);
until n<0;
writeln('сумма: ',s);
end;
// сновная программа
begin
assign(input,'input.txt');
sumd;
end.
файл input.txt: 11 15 21 13 -5
сумма: 60
var s,n: integer;
begin
s:=0; n:=0;
repeat
s:=s+n;
read(n);
until n<0;
writeln('сумма: ',s);
end;
// сновная программа
begin
assign(input,'input.txt');
sumd;
end.
файл input.txt: 11 15 21 13 -5
сумма: 60
Автор ответа:
0
Спасибо Вам большое !!!
Интересные вопросы
Предмет: Алгебра,
автор: nazguloryngali3
Предмет: Физика,
автор: alibekovafatima431
Предмет: Литература,
автор: vladimirputin76
Предмет: Математика,
автор: милана050505