-------------------
C / C++:
-------------------
...
int curNum = 4, sum = 0;
while (curNum <= 30)
{
if (curNum % 3 == 0)
sum += curNum;
++curNum;
}
printf("%i", sum);
...
----------------------
PASCAL:
----------------------
var curNum, sum : integer;
begin
curNum := 4;
sum := 0;
while (curNum <= 30) do begin
if curNum mod 3 = 0 then
sum := sum + curNum;
curNum := curNum + 1;
end;
writeln(sum);
end.
Боже, вот это текст...
В тексте 100 символов.
Весит текст 400 бит.
Значит, один символ весит 4 бита.
Максимальное (значит может быть и меньше) кол-во символов, которое можно закодировать в таком случае = 2^4 = 16. - ответ
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (x,y,z):=ReadReal3;
var a:=(3+Exp(y-1))/(1+x*x*Abs(Tan(z)));
var b:=1+Abs(y-x)+Abs(y-z)**3/3;
Println(a,b)
end.
<h2>Пример</h2><h3>12.4 -0.183 5</h3><h3>0.00634876065501366 59.9941544956667 </h3>
Биология - модель кровеносной системы, модель опорно-двигательного аппарата (скелет)
География - карта, глобус (модели Земли)
Физика - модель молнии, модель маятника (движение маятника), модель электрической цепи.
Химия - химический состав вещества (например, хим. состав воды - 2 молекулы водорода и одна молекула кислорода), модель молекулы азота.
Геометрия - модели геометрических фигур (геометрических тел - куб, призма...),
История - модели развития стран, модели развития военных действий
Язык Python, оk через ф-ю так через ф-ю
def printOdd(num):
tmp = str(num)
if not("2" in tmp or "4" in tmp or "6" in tmp or "8" in tmp or "0" in tmp):
print num