Пожалуйста, помогите. (Паскаль) Даны числа от 1 до n. Найти произведение чисел кратных 3...

Question

Пожалуйста, помогите. (Паскаль)
Даны числа от 1 до n. Найти произведение чисел кратных 3 и оканчивающихся на 1.
Учтите, я в 9 классе. И прошу, ниже решения-программы напишите объяснение(какой буквой что обозначили и что означает та или иная строчка или в таком виде(пример:вводим, далее делаем это, потом, чтобы сделать ..., делаем..., ну и потом...). Заранее спасибо.

Comments

А вчерашнее решение http://znanija.com/task/17971873 чем не устроило? Хотите решение с div получить? Или учебник/тетрадь трудно прочитать?

Answer 1

Разъяснения разместил в код программы в виде комментариев

//Объявление переменных
//n - количество чисел
//p - произведение найденных чисел
//i - переменная для организации цикла
var
  n, p, i: integer;

begin
  //Переменная p = 1,
  //так как в процессе работы программы в ней
  //накапливается произведение найденных чисел
  p := 1;
  write('Введите количество чисел ');
  //В n - количество вводимых чисел
  readln(n);
  // цикл со счетчиком в котором вводим n чисел,
  for i := 1 to n do
    // Проверяем очередное значение i на кратность 3
    // и выясняем, заканчивается ли это число на 1.
    // Для этого используем целочисленное деление.
    // mod - остаток от деления
    // если i mod 3 = 0, значит i кратно 3
    // если i mod 10 = 1, значит i оканчивается на 1
   
    if (i mod 3 = 0) and (i mod 10 = 1) then
      p := p * i; //умножим p на найденное число
  //Вывод произведения найденных чисел
  writeln('Искомое произведение ', p);
end.

Тестовое решение:
Введите количество чисел 81
Искомое произведение 86751

Comments

Спасибо огромное, очень помог. Надеюсь, ошибок нет. Посмотрим завтра, что учительница скажет на это-правильно или не правильно.

---

Вот, оказывается, главный критерий - что учительница скажет на это!

---

А как я боюсь вердикта учительницы, что не так надо менять профессию)))

---

И, наверное завтра не наступило (

---

Вердикт: каракули свои убирай, мы это не проходили. Но все равно спасибо, программа работает.

---

Учительница не одобрила (((