For (int i = 16; i < 10000; ++i)[
if (i%2 >0) continue;
if (!(i%16) && !(i%31))
<span> printf("%d ,",i);</span>
}
Убрала несколько блоков, т.к. считаю их лишними
Var
p:real;
k:integer;
begin
Write('Грузоподъемность судна: '); Read(p);
Write('Количество судов: '); Read(k);
Writeln('Грузоподъемность флотилии составит ',p*k)
end.
<u>Пример</u>
Грузоподъемность судна: 12000
Количество судов: 7
Грузоподъемность флотилии составит 84000
1*2⁶+0*2⁵+1*2⁴+0*2³+1*2²+0*2¹+1*2⁰= 64+0+16+0+4+0+1=85
1010101₂=85₁₀
Ответ: 85
var
c,r,s:real;
begin
write('dlina okruznosti=');
readln(c);
r:=c/(2*pi);
s:=pi*sqr(r);
writeln('ploshad=',s)
end.