Advertisement
Guest User

Untitled

a guest
Jun 25th, 2017
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.26 KB | None | 0 0
  1. program Bevardė0;
  2. var n, m : integer;
  3. begin
  4. Read(n);
  5. read(m);
  6. writeln(' ');
  7. writeln('SKAIČIAI KURIE DALINASI IŠ 13 (NUO ',n,' IKI ',m,')');
  8. writeln(' ');
  9. while n <= m do
  10. begin
  11. if n mod 13 = 0
  12. then Write(n, ',');
  13. n:=n+1;
  14. end;
  15. Readln;
  16. readln;
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement