Question

Программа "сложение и умножение чисел от 200 до 2000 кратных 5 и 7"

Answer 1

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.