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

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

program two;

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

Назад