Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.