viktoriya212
01.05.2020 03:41

Необходимо найти произведение всех целых чисел от a до b включительно
Формат входных данных
Вводятся два целых числа a и b (−231≤a≤b≤231−1).

Формат выходных данных
Требуется вывести одно число — искомое произведение. Гарантируется, что ответ не превышает по модулю 230.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ВДРПДАОЦПУЦ
10.12.2020 20:13

ответ: 180

Объяснение:

11212 это порядок действий который надо выполнить поочерёдно. дано число 5, к нему прибавляем 2 (т.к сначала идет последовательность 11, а 1 - прибавь 1) будет 7. далее методом исключения умножаем на 5(идет цифра 2), т.к. понятно что если умножить на числа поменьше (2,3,4) то получится числа от 14 до 28 а дальше идет еще плюс и умножение, но даже выполнив их мы получим число меньше чем 180(можно понять логически). 7*5=35, далее прибавим единицу (т.к. идет цифра 1). будет 36*5(т.к. идет цифра 2) = 180

0,0(0 оценок)
Ответ:
urybalka27
13.03.2021 21:41

программа с комментариями, если все равно не понятно спрашивай

для проверки программы рекомендую n поставить где нибудь на 10 потому что вводить 1000 чисел с клавиатуры то еще удавольствие :))

числа можно вводить по одному или одной строкой через пробел

const

   n = 1000; // длина массива

var

   d : array of integer := new integer[n]; // объявляем и создаем массив

   a, b : integer;

   

begin

   // вводим числа в массив //

   writeln('введите данные в массив:');

   for var i := 0 to n-1 do begin

       read(a);

       d[i] := a;

   end;

   writeln('введен массив d=', d); // выводим массив на экран

   // переворачиваем данные в массиве                                //

   // для этого меняем первое с последним, второе с предпоследним    //

   // и так до середины                                              //

   for var i := 0 to (n div 2)-1 do begin

       a := d[i];

       d[i] := d[n-i-1];

       d[n-i-1] := a;

   end;

   writeln('переворачиваем массив d=', d); // выводим перевернутый массив

   write('числа у которых первая цифра больше последней:');

   // ищем и ввыводим числа с заданным условием //

   for var i := 0 to n-1 do begin

       // находим чему равна 1 цифра //

       b := d[i];

       repeat

           b := b div 10;

       until b < 10;

       if b > d[i] mod 10 then write(' ', d[i]); // сравниваем первую и последнюю цифры и ели первая больше то выводим число

   end;

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота