Advertisement
Hawkari

Untitled

Sep 22nd, 2019
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.14 KB | None | 0 0
  1. program two;
  2. var N,d,i:integer;
  3. begin
  4. readln(N);
  5. i:=1;
  6. while i<=N do
  7. begin
  8. if i mod 2 =1 then
  9. writeln('i=',i);
  10. i:=i+2;
  11. end;
  12. readln;
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement