Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма чисел кратных 3 равна ',sum);
end.<span>
</span>
С помощью трех битов можно закодировать 7 значений
а это значит что в коробке может быть до 7 шаров
<span>Друга назва мобільного комп'ютера
</span>Портативний )))