Допоможіть розв"язати задачу з програмування: Знайти добуток чисел кратних 5 від 1 до 500.

Question

Допоможіть розв"язати задачу з програмування:
Знайти добуток чисел кратних 5 від 1 до 500.

Comments

я решу, если на русском напишешь, попроси кого-нибудь, кто знает

---

найти произведение чисел кратных 5 от 1 до 500

Answer 1

Program ex;
var k,h,m: longint;
begin
  m:=1;
  for k:=1 to 500 do begin
    if k mod 5 = 0 then m:=m*k;
  end;
  write(m);
end.