G2A Many GEOs
SHARE
TWEET

Untitled

AlexeySychev Apr 7th, 2020 (edited) 124 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program ZADACHA4;
  2. var
  3. a : array [1..15] of integer;
  4. I : byte;
  5. begin
  6.   Randomize;
  7.  
  8. For i := 1 to 15 do
  9.   Begin  
  10.     a[i]:=-15+random(15-(-15+1));
  11.     Write(a[i],’ ‘);
  12.     if ((i mod 2) = 1) and (a[i] > 0) and ((a[i] mod 3) =0) then
  13.         writeln(a[i])
  14.   end;
  15.  
  16. end.
RAW Paste Data
Ledger Nano X - The secure hardware wallet
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