Advertisement
Guest User

Untitled

a guest
Jan 21st, 2020
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.21 KB | None | 0 0
  1. var
  2. i,sum, n, number: integer;
  3.  
  4. begin
  5.   readln(n);
  6.  
  7.   sum := 0;
  8.  
  9.   for i:= 1 to n do begin
  10.     readln(number);
  11.     if number mod 6 = 0 then
  12.       sum:= sum + number;
  13.   end;
  14.   writeln(sum);
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement