profile
Опубликовано 6 лет назад по предмету Информатика от noname03

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

  1. Ответ
    Ответ дан kit4fs
    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.

Самые новые вопросы