Информатика, опубликовано 2018-08-22 21:12:16 by Гость
Вычислить произведение чисел от -20 до 30 которые делятся на 3
Ответ оставил Гость
Var i,p:integer;
begin
p:=1;
for i:=-20 to 30 do
if i mod 3 = 0 then p*=i;
writeln(p);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.