Question

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

Answer 1

var a,b,k:integer;

begin

readln(a,b);

for b:=b-1 downto a+1 do

begin

writeln (b);

k:=k+1

end;

writeln('k=',k)

end.

var a,b,k:integer;

begin

readln(a,b);

while b>a+1 do

begin

b:=b-1;

writeln (b);

k:=k+1

end;

writeln('k=',k)

end.

var a,b,k:integer;

begin

readln(a,b);

repeat

b:=b-1;

writeln (b);

k:=k+1

until b=a+1;

writeln('k=',k)

end.