Человечество начало использовать простые вычислительные средства тысячи лет назад. Наиболее распространенным типом расчета было определение количества товаров, используемых в биржевой торговле. Простейшим решением является использование весовых эквивалентов конвертируемого продукта, поскольку нет необходимости рассчитывать количество вещества, содержащегося в продукте. Для этих целей использовались простые бальзамические сундуки, которые были первым устройством обнаружения массы.
Принцип эквивалентности также использовался в так называемой «тюрьме». Чтобы вычислить вещество, необходимо было стимулировать кости в инструменте.
Благодаря изобретению зубчатых колец расчеты усложнились. Механизм предвидения, обнаруженный в начале 20-го века (найденный в древнем древнем корабле 1-го века до нашей эры), мог показать образцы планет. По оценкам, этот инструмент использовался для религиозных целей, таких как расчеты по календарю, предсказание даты и луны, заселение и сбор урожая. Для расчетов использовалось более 30 бронзовых колец и несколько циферблатов. Дифференциальный транспорт использовался для расчета фаз Луны (ученые предположили, что этот подход был изобретен в XVI веке). После краха античной культуры такие инструменты исчезли. Сложность потребовала создания такого механизма для человечества на 1,5 года.
Источник_____Информационный канал_____Приёмник
1.
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.
Результат:
<span>s = 2475
2. Без использования стандартных функций:
var n,p,i:integer;
begin
readln(n);
p:=1;
for i:=1 to 5 do p:=p*n;
writeln(n,'^5 = ',p);
end.
Пример:
2
<span>2^5 = 32
3.
var n,i:integer;
begin
readln(n);
i:=1;
while i*i<n do
begin
writeln(i,' (',i,'^2 = ',i*i,')');
i:=i+1;
end;
end.
Пример:
30
<span>1 (1^2 = 1)
2 (2^2 = 4)
3 (3^2 = 9)
4 (4^2 = 16)
5 (5^2 = 25)</span></span></span>
Var n,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
case n of
3..9 : k:=1;
10..99 : begin
k:=1;
for i:=10 to n do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
end;
100..999:begin
k:=1;
for i:=10 to 99 do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
for i:=100 to n do
if (i div 100=3)or(i div 10 mod 10=3)or(i mod 10=3) then k:=k+1;
end;
end;
writeln('k = ',k);
end.
Пример:
n = 120
k = 21
никак там невозможно сделать
