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

dayn915 dayn915    3   10.07.2019 18:50    0

Ответы
LeraKruspe LeraKruspe  06.08.2020 23:00
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика