program For3;
var
A,B, i:Integer;
begin
Write('Введите A: ');
Readln(A);
Write('Введите B: ');
Readln(B);
For i:=1 to B-A-1 do Writeln(B-i);
Writeln('Кол-во: ',B-A-1);
end.
Объяснение:
Это если на языке программирования Pascal
program For3;
var
A,B, i:Integer;
begin
Write('Введите A: ');
Readln(A);
Write('Введите B: ');
Readln(B);
For i:=1 to B-A-1 do Writeln(B-i);
Writeln('Кол-во: ',B-A-1);
end.
Объяснение:
Это если на языке программирования Pascal