Ответы
Ответ дал:
0
program slozh_i_umn_krat_5i7;
var
p,s,i:int64;
begin
p:=1; s:=0;
for i:=200 to 2000 do
if (i mod 5=0)and(i mod 7=0) then
begin
p:=p*i;
s:=s+i
end;
write(p,' ',s)
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад