Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными...

Question

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

Answer 1

Var
  a,b,k: integer;
  i: byte;
begin
  write ('Введите число A: ');
  readln (a);
  write ('Введите число B: ');
  readln (b);
  k:=0;
  for i:=a to b do begin
    write (a:4);
    k:=k+1;
    a:=a+1;
  end; 
  writeln;
  writeln ('Количество чисел = ',k);
end.

---------------------------------------
Введите число A: 5
Введите число B: 10
   5   6   7   8   9  10
Количество чисел = 6

Comments

спасибо)))