d) 101₂ = 1*2²+0*2¹+1*2⁰ = 4+1 = 5₁₀
210₃ = 2*3²+1*3¹+0*3⁰ = 18+3 = 21₁₀
101₂ + 210₃ = 5₁₀ + 21₁₀ = 26₁₀
e) 404₆ = 4*6² + 0*6¹ + 4*6⁰ = 144 + 4 = 148₁₀
205₈ = 2*8² + 0*8¹ + 5*8⁰ = 128+5 = 133₁₀
404₆ - 205₈ = 148₁₀ - 133₁₀ = 15₁₀
f) 56₁₆ = 5*16¹+6*16⁰ = 80+6= 86₁₀
37₇ - <em>в 7сс число не может содержать цифры 7 в записи. Либо опечатка в задании, либо проверка на внимательность. </em>
Напишу только циклы, потому что
1) много заданий.
2) различия только в циклах
1. Создаешь переменную b:array[1..20] of real;
...
for i:=1 to 20 do
b[i]:= sqrt(a[i]);
...
2. Создаешь переменную sum: integer;
...
sum:=0;
for i:=11 to 15 do
sum:=sum+a[i];
...
3. Здесь без дополнительных переменных.
...
for i:=1 to 20 do
if a[i] mod 8 = 0 then
writeln('A[',i,'] = ',a[i]);
...
4. Создаешь переменную sum:integer:
...
sum:=0;
for i:= 1 to 20 do
if a[i] > 0 then sum:=sum+a[i];
sum:=sum*2;
...
5. Здесь без дополнительных переменных.
...
for i:= 2 to 20 do
if a[i] > a[i-1] then
writeln('A[',i,']');
...
6. Создаешь переменную k:integer;
...
k:=0;
for i:=1 to 19 do
if a[i] and a[i+1] > 0 or a[i] and a[i+1] < 0 then
k:=k+1;
if k>0 then writeln('Да'); else writeln('Нет');
...
7. Аналогично, переменная k:integer;
...
k:=0;
for i:=1 to 20 do
if a[i] > 0 then k:=k+1;
writeln(k,' элементов больше 0');
...
8. Без дополнительных переменных
...
for i:=1 to 20 do
if a[i]>0 then
a[i]:=a[i]-a[2];
else
a[i]:=a[i]+a[4];
for i:= 1 to 20 do
write(a[i]:4);
...
9. Переменную k:integer;
...
k:=1;
for i:=1 to 19 do
if a[i] mod 3 > 0 or a[i] mod 5 > 0 then
k:=k+1;
else a[k]:=a[i+1];
...
(Могу ошибаться, я пересмотрю это задание)
Кажждая буква несет 4 бита информации
<span>Linux конечно же )) Надо расширять свой кругозор )</span>
var a:array[0..9] of integer;
i,min,max:integer;
begin
for i:=0 to 9 do readln(a[i]);
min:=a[0];
for i:=0 to 9 do if(min>a[i]) then min:=a[i];
max:=a[0];
for i:=0 to 9 do if(max<a[i]) then max:=a[i];
writeln(max,' ', min);
readln;
end.