Регистрация
сердечко141
01.04.2020 09:55
Информатика
Есть ответ 👍

Дана непустая последовательность целых чисел, оканчивающихся нулём. Найди сумму чисел последовательности больших числа x​

190
304
Посмотреть ответы 2

Ответы на вопрос:

Belka1985
Belka1985
4,5(36 оценок)

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.

Ksenia5555509877
Ksenia5555509877
4,4(9 оценок)
Var i,p: integer; begin p: =1; for i: =-20 to 30 do if i mod 3 = 0 then p*=i; writeln(p); end.

Популярно: Информатика