Дана непустая последовательность целых чисел, оканчивающихся нулём. Найди сумму чисел последовательности больших числа x
dinbili4
2
16.05.2020 18:53
2
Другие вопросы по теме Информатика
rubyrose2003
24.06.2021 12:06
надо24
24.06.2021 12:06
228Cracker228
24.06.2021 12:06
ьтььбть
24.06.2021 12:22
МинаМина2003
24.06.2021 12:41
kazorinJeka
24.06.2021 13:04
ivanbudaev1993
24.06.2021 13:23
andreisena4ev
24.06.2021 13:38
malvinka011
24.06.2021 14:22
Популярные вопросы
- Спишите вставьте пропущенные буквы недостающие знаки препинания сделайте синтаксический...
3 - Розв язати рівняння: 4,43х -2,57х=30,03...
3 - Say how you get to the most popular place in your area from your home using...
3 - Help me:1) За що Ян Гус був засуджений до смерті? Чому його смерті бажало ідуховенство,...
3 - Listen to the conversation and fill in the gaps...
3 - Решите ЛИНЕЙНЫЕ УРАВНЕНИЯ МЕТОДОМ ПОДСТАНОВКИа) y=5x+7 | б)6x+4y=2 | в...
3 - Найдите площадь прямоугольника, если его периметр равен 13,2 см, а одна из...
2 - Локажите, что в равных треугольниках ABC и A1B1C1. а) равны медианы, про-веденные...
2 - пиcьмeнный пepecказ тeкcтa...
3 - 1. Что такое онтогенез? Как он подразделяется? 2. Каковы особенности юношеского...
3
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.