Информатика, опубликовано 2018-08-22 22:50:32 by Гость
Допоможіть розв"язати задачу з програмування: Знайти добуток чисел кратних 5 від 1 до 500.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.