Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>
Техникой и механизомандмами которые вополняют определенный вид
команд
А:=-6;
В:=-5;
А:=-6+2*(-5)=-16;
В:=-16;
Ответ: -16-16
.............................................
1000= 8 в десятичной системе счисления