Найти сумму от начала до первого кратного 5

Question

Найти сумму от начала до первого кратного 5

Comments

Программу написать что ли?

---

Да

---

pascal ABC

---

от начала чего?

---

От начала массива

---

т.е. от первого элемента

---

сколько элементов в массиве?

---

n элементов

Answer 1

Var
  a:array[1..10000] of integer;
i, n, sum:integer;
begin
  Read(n);
  For i:= 1  to n do
    Read(a[i]);
  For i:= 1 to n do
    if (a[i] mod 5 = 0) then break
      else inc(sum,a[i]);
  Writeln(sum);
end.

Comments

Можете еще над одной задачей помочь в профиле?

Answer 2

Program abc;
var x,s:integer;
begin
x:=1;
while (x mod 5)<>0 do
  begin
    writeln('Введите x');
    readln(x);
    s:=s+x;
  end;
writeln(s);  
end.

Comments

Тут не совсем стандартное решение, но тоже работает правильно