1)
var b,i:integer;
beginb:=0; for i := 100 to 999 do if (i mod 17) = 0 then b:=b+i; writeln (b);end.
2)
var b,c:integer;
begin b:=1; for c:= 1 to 15 do b:=b*c; writeln (b);end.
1)
var b,i:integer;
begin
b:=0;
for i := 100 to 999 do
if (i mod 17) = 0 then b:=b+i;
writeln (b);
end.
2)
var b,c:integer;
begin
b:=1;
for c:= 1 to 15 do
b:=b*c;
writeln (b);
end.