"найти произведение двузначных нечетных чисел кратных 13 в интервале от 1 до 1000"
"найти произведение двузначных нечетных чисел кратных 13 в интервале от 1 до 1000"
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var i,p:int64;
begin
p:=1;
for i:=1 to 1000 do
begin
if(i mod 2=1)and(i mod 13=0)then p:=p*i;
end;
writeln(p);
end.
Не нашли ответ?
Похожие вопросы