ПОМОГИТЕ!
Дана непустая последовательность целых чисел, оканчивающихся нулём. Найди сумму чисел последовательности больших числа x
Дана непустая последовательность целых чисел, оканчивающихся нулём. Найди сумму чисел последовательности больших числа x
More Questions From This User See All
Answers & Comments
Ответ:
var x, sum, i, k:Integer;
begin
sum:=0;
readln(x);
for i := 1 to 30000 do
begin
readln(k);
if k = 0 then
begin
break;
end;
if k > x then
begin
sum:=sum+k;
end;
end;
writeln(sum);
end.