profile
Опубликовано 5 лет назад по предмету Информатика от nosenko80

Задание 1
Даны два целых числа A и В, A > B. Выведите все нечётные
числа от A до B включительно, в порядке убывания.
Задание 2
Даны два целых числа A и В, A > B. Выведете произведение
всех чисел от А до В.
Пример:
А = 2, В = 4
Результат: 24(2*3*4)
Задание 3

По данному натуральному n ≤ 9 выведите лесенку из n
ступенек, i-я ступенька состоит из чисел от 1 до i без пробелов.
Пример:
n = 4
Результат:
1
12
123
1234
Домашнее задание №5

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
    Внимание! Если программа не работает, обновите версию!

    №1

    begin
      var (a,b):=ReadInteger2('Введите a,b:');
      if a.IsEven then a-=1;
      Range(a,b,-2).Println
    end.

    Пример
    Введите a,b: 18 4
    17 15 13 11 9 7 5

    №2

    begin
      var (a,b):=ReadInteger2('Введите a,b:');
      Range(b,a).Aggregate(BigInteger(1),(i,j)->i*j).Println
    end.

    Пример
    Введите a,b: 50 7
    42241796113490802838350844675089956728302279956889600000000000

    №3

    begin
      var n:=ReadInteger('n=');
      for var i:=1 to n do
        (1.To(i)).Println('')
    end.

    Пример
    n= 7
    1
    12
    123
    1234
    12345
    123456
    1234567
    1. Ответ
      Ответ дан nosenko80
      спасибо но не тот уровень
    2. Ответ
      Ответ дан Аккаунт удален
      У Вас в вопросе где-то уровень описан? Вы даже язык программирования не потрудились указать!
Самые новые вопросы