Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1) чтобы перевести из 2-ой системы в 10-ную нужно каждую цифру умножить на основание системы счисления в степени в какой стоит цифра:
111101(2) = 1 * 2^5 + 1 * 2^4 + 1 * 2^3 + 1 * 2 ^ 2 + 0 * 2 ^ 1 + 1 * 2^0 =
= 32 + 16 + 8 + 4 + 0 + 1 = 61 (10)
2) чтобы перевести число из 10-ой системы в 2-ную нудно делить исходной число на 2 до тех пор пока исходной число не станет меньше 2, остатки от деления записанные в обратном порядке будут результатом
65 : 2 = 32(ост. 1)
32 : 2 = 16(ост. 0)
16 : 2 = 8(ост. 0)
8 : 2 = 4(ост. 0)
4 : 2 = 2 (ост. 0)
2 : 2 = 1 (ост. 0)
65(10) = 1000001(2)
1)
var
a,b: array [1..100] of integer;
i,j,k,a,b,f: integer;
begin
randomize;
readln(a);
readln(b);
k: =0;
for i: =1 to 20 do
a[i]: =random(135)-45;
f: =0;
for j: =a to b do
if (a[i]=j) and (a[i] mod 7 =0) then f: =1;
if f=0 then
k: =k+1;
b[k]: =a[i];
end;
for i: =1 to k do
writeln(b[i]);
end.
2)
i,j,k: integer;
readln(k);
j: =0;
writeln(a[i]);
for i: =1 to 19 do
if a[i]*a[i+1]> 0 then
j: =j+1;
b[j]: =a[i];
b[j]: =k;
end
else
b[j]: =a[20];
for i: =1 to j do
writeln(b[j]);
3)
a,b: array [1..20] of integer;
i,j,k1,k2: integer;
readln(k1);
readln(k2);
if k1< k2 then
for i: =1 to k1-1 do
b[i]: =a[i];
for i: =k2+1 to 20 do
j: =k2;
for i: =k1 to k2 do
j: =j-1;
Популярные вопросы