• Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A < B, или в порядке убывания в противном случае.

    Входные данные
    Вводятся два целых числа.

    Выходные данные
    Выведите ответ на задачу.

    Примеры
    входные данные
    1
    10
    выходные данные
    1 2 3 4 5 6 7 8 9 10
    НЕ ДО КОНЦА ПОНЯЛ, КАК ДЕЛАТЬ, ПОМОГИТЕ

Ответы 3

  • на каком тесте?
  • var a,b,i:integer;beginread(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.
    • Автор:

      gretta
    • 5 лет назад
    • 0
  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years