Этапы решения - это выполнение алгоритма.
А алгоритмы в жизни используются везде, просто некоторые из них настолько просто, что мы их не замечаем. Например чистка зубов-алгоритм, зарядка с утра - алгоритм. По этому этапы решения задач с помощью компьютера безусловно полезны.
1)1110011
1+2+16+32+64=115
2)1101001
1+8+32+64=105
3)134=128+2+4
10000110
Ответ: 3 (три единицы)
4)143=128+8+1+4+2
10001111
Ответ:5
5)141=128+8+4+1
10001101
Ответ:4
6)1100110
2+4+32+64=102
1)
var a:array [1..10] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
write (a[i],' ');
if a[i] < 0 then sum:=sum+a[i];
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.
2)
var a:array [1..10] of integer;
i,max,index:integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
max:=a[1];
index:=1;
for i:=2 to 10 do
if a[i] > max then
begin
max:=a[i];
index:=i;
end;
writeln ('Max: ',max,'.Index: ',index);
readln;
end.
3)
var a:array [1..10] of integer;
max,min,i,temp:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(50);
write (a[i],' ');
end;
writeln;
max:=1;
min:=1;
for i:=2 to 10 do
if a[i] > a[max] then max:=i else
if a[i] < min then min:=i;
writeln ('Max: ',a[max]);
writeln ('Min: ',a[min]);
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
for i:=1 to 10 do write (a[i],' ');
end.
1) а). 117₁₀=1110101₂
б).217₁₀=11011001₂
в).317₁₀=100111101₂
2).а). 12*22*7=1848 бит
б). 1848₁₀=11100111000₂
