Предмет: Информатика,
автор: AddaBe88
Дана последовательность целых чисел, заканчиваемые нулем. Подсчитайте сумму положительных чисел последовательности. Пожалуйста помоги!!!
Ответы
Автор ответа:
0
program beg;
var a,sum:integer;
begin
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then sum:=sum+a;
end;
writeln(sum);
end.
var a,sum:integer;
begin
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then sum:=sum+a;
end;
writeln(sum);
end.
Интересные вопросы
Предмет: Обществознание,
автор: and45174517
Предмет: Английский язык,
автор: armen55526
Предмет: Экономика,
автор: Appelsin12
Предмет: Алгебра,
автор: Oksana1234