Question

Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A < B, или в порядке убывания в противном случае. Входные данные Вводятся два целых числа. Выходные данные Выведите ответ на задачу. Примеры входные данные 1 10 выходные данные 1 2 3 4 5 6 7 8 9 10 НЕ ДО КОНЦА ПОНЯЛ, КАК ДЕЛАТЬ, ПОМОГИТЕ

Answer 1

var a,b,s,i:integer;
begin
assign(input,'путь к документы');
reset(input);
assign(output,'output.txt');
rewrite(output)
readln('vvedite menshee chislo');
readln(a);
readln('vvedite bolshee chislo');
readln(b);
for i:=a to b do s:=s+i*i;
writeln(s);
readln;
end.

Answer 2

Var a,b,i:integer;
begin
read(a);read(b);
if(a<b)then    for i:=a to b do write(i, ' ') 
 else  for i:=b to a do write(i,' ');
end.