SHARE
TWEET

Задача 4 (mod 2 = 0)

Marrsseell Sep 22nd, 2019 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.   n,i:integer;
  3. begin
  4.   readln(n);
  5.   for i:=1 to n do
  6.     begin
  7.       if (i mod 2) = 0
  8.         then
  9.           writeln(i)
  10.     end;
  11. 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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top