SHARE
TWEET

Untitled

a guest Jan 21st, 2020 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top