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 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.