Даны целые числа а и в (а<в) написать программу вычисления всех целых чисел от а до в...

Question

Даны целые числа а и в (а<в) написать программу вычисления всех целых чисел от а до в включительно

Comments

вывести все числа в промежутке от а до б включая их самих?

---

да

Answer 1

Var
    a, b, i: integer;

begin
    writeln('введите число a');
    readln(a);
    writeln('введите число b');
    readln(b);
   
    if (a > b) then begin
        i := b;
        b := a;
        a := i;
    end;
   
    for i := a to b do
        writeln('число в промежутке ==>', i);
   
end.

Answer 2

Var a,b,c:integer;
begin
writeln('введите число a');
readln(a);
writeln('введите число b');
readln(b);
for a:=a to b do begin
writeln('число в промежутке ==>',a);
end;
if a>b then
 for b:=b to a do begin
writeln('число в промежутке ==>',b);
end;
end.

Comments

я добавил проверку, на всякий случай. Надеюсь вы не против

---

нет спасибо большое

---

вы не могли бы отметить мой ответ как лучший?

---

буду признателен

---

а не легче просто поменять а и в местами ?

---

а какая разница?

---

избежание одной из важных ошибок програмирования - копипаст

---

а если бы цикл был не в одну строчку а в 10 строк, ты тоже бы его только скопировал и поменял буквы местами?