var i,s:integer;
p:real;
begin
s:=0;
p:=1;
for i:=33 to 100 do
if i mod 33=0 then s:=s+i;
if i mod 33=0 then p:=p*i;
end;
writeln('Сумма кратных 33=',s);
write('Произведение кратных 33=',p);
end.
Объяснение:
var i,s:integer;
p:real;
begin
s:=0;
p:=1;
for i:=33 to 100 do
begin
if i mod 33=0 then s:=s+i;
if i mod 33=0 then p:=p*i;
end;
writeln('Сумма кратных 33=',s);
write('Произведение кратных 33=',p);
end.
Объяснение: