Advertisement
maxlarin2

Dayana4

Dec 1st, 2012
318
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.15 KB | None | 0 0
  1. var
  2. a,b,i,q:integer;
  3. begin
  4.   readln(a,b);
  5.   for i:=a to b do
  6.     begin
  7.     writeln(i);
  8.     inc(q);
  9.     end;
  10.     writeln('Кол-во=',q);
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement