Решение задач по теме "For - цикл с параметром в Pascal"

Решение задачи №3

program three;

var A,B,i: integer;
begin
     write('A = ');
     readln(A);
     write('B = ');
     readln(B);
     for i:=B-1 downto A+1 do
         writeln(i);
     writeln('N = ',B-A-1);
end.

Назад