Задача 2 Урок 10.1

Primary tabs

Submitted by lorn on Sat, 04/09/2022 - 18:22

Forums:

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:

Если первое больше второго то в порядке возрастания, пример консоли:

1
5
ответ: 1 2 3 4 5
var i,a,b:integer;
begin
  writeln('Vvedite A: ');
  readln (a);
  writeln('Vvedite B: ');
  readln (b);

  for i:=a to b do
    write(i, ' '); // выводим значения счетчика через пробел

  readln();
end.
  • Log in to post comments
  • 479 reads

lorn

Sat, 04/09/2022 - 18:24

Иначе в порядке убывания, пример консоли:

5
3
ответ: 5 4 3
var i,a,b:integer;
begin
  writeln('Vvedite A: ');
  readln (a);
  writeln('Vvedite B: ');
  readln (b);

  for i:=a downto b do
    write(i, ' '); // выводим значения счетчика через пробел

  readln();
end.