Жемайлов
5 год назад
Пожалуйста посчитайте решить плз !!!!В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число. Написать функцию без параметров для нахождения суммы этих положительных чисел.Заранее спасибо !!! Написать нужно на Паскаль АВС
ОТВЕТЫ
Fuchs Henriette
Oct 24, 2020
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
490
Смежные вопросы:
