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

Question

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

bombaleilooo · Answer

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.Пример работо...

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