<span>var a,b:integer;
<span>begin</span></span>
<span><span /></span><span><span>a:=10;
</span><span> b:=15;
if a>b then b:=a+b;
a:=a+b;</span></span>
<span><span>writeln(a);</span></span>
<span><span>writeln(b);</span></span>
<span><span>end;</span></span>
<span><span />
</span>
Единицы измерения информации:
1 байт = 8 бит
<span>1 килобайт (Кб) = 1024 байт</span>
1 мегабайт (Мб) = 1024 килобайт
1 гигабайт (Гб) = 1024 мегабайт
<span>1 терабайт (Тб) = 1024 гигабайт</span>
0+1 = 1
1*2 = 2 (или 1+1 = 2)
2+1 = 3
3*2 = 6
6*2 = 12
12*2 = 24
24+1 = 25
25*2 = 50
А) Таблица;
Б) Многоуровневый маркированный список;
В) Нумерованный;
Г) Нумерованный;
Д) Многоуровневый нумерованный список.
PS Нумерованные и маркированные списки, на мой взгляд, в данных ответах выбраны оптимальными, но они могут быть заменены друг другом.
Var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
131
241
324
550
624
803
900
910
Если требуется деление на 11 без остатка, то:
var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) mod 11) = 0 then
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
<span>550
803</span>