Question

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

Answer 1

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.

Answer 2

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.