Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными...

Question

Даны два целых
числа A и B (A < B). Вывести все целые числа,
расположенные между данными числами (включая сами эти числа), в порядке их
возрастания (убывания), а также количество N этих чисел (с использованием
оператора for, while, repeat)

Answer 1

 Var A, B : integer; procedure Fo(A, B:integer);var i : integer;begin for i:=A to B do write(i,' '); writeln('N = ',B-A+1); end; procedure Whil(A, B : integer);var n:integer;begin n:=0; while (A <= B) do </span> begin write(A,' '); Inc(A); Inc(n); end; writeln('N = ', n);end; procedure Repea(A, B : integer);var n : integer;begin n:=0;repeat write(A,' '); inc(A); Inc(n);until (A>B);write('N = ',n);end; begin Readln(A, B); Fo(A, B); Whil(A, B); Repea(A, B);end.

Comments

http://ideone.com/UWMm5S