Напишите программу, которая вычисляет произведение всех чисел кратных 5 в диапазоне от 1...

Question

Напишите программу, которая вычисляет произведение всех  чисел кратных 5 в диапазоне от 1 до n (через цикл while) ​

Answer 1

Ответ:

• var p, n, i: integer;
• begin
• p := 1;
• readln(n);
• while i < n do
• begin
• i += 1;
• if (i mod 5 = 0) then p *= i;
• end;
• write(p);
• end.

Пример работоспособности:

---