Advertisement
Guest User

Untitled

a guest
Apr 8th, 2020
201
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.26 KB | None | 0 0
  1. Program HelloWorld(output);
  2. var
  3.     sum, a: integer;
  4. begin
  5.     sum:=0;
  6.     readln(a);
  7.     while (a <> 0) do begin
  8.         if ((a mod 4 = 0) and (a mod 10 = 3)) then begin
  9.             sum:=sum+a;
  10.         end;
  11.         readln(a);
  12.     end;
  13.   writeln(sum);
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement