Вариант 1
1) Перевод из десятичной системы в другую делаем через деление с остатком:
272 / 5 = 54 и остаток 2
54 / 5 = 10 и остаток 4
10 / 5 = 2 и остаток 0
Дальше делить некуда, т.к. два меньше пяти.
Составляем результат начиная с конца (цифра 2) и за ней ставим все остатки от деления. Получаем число 2042
То есть,
2) Делим:
2774 / 11 = 252 и остаток 2
252 / 11 = 22 и остаток 10
22 / 11 = 2 и остаток 0
Один остаток равен 10. Это уже два символа, а нам нужен один. В системах счисления с основанием больше 10 используют для этих целей буквы:
вместо 10 пишут A
вместо 11 пишут B
вместо 12 пишут C
вместо 13 пишут D
и так далее.
Поэтому, в нашем примере мы составим число 20A2
То есть,
3) Перевод в десятичную систему из других делается через умножение цифр в разрядах на "вес" каждого разряда.
4)
3. 2111070(8сс)=010001001001000111000=89230(16сс)
4. т.к в разных сс переведем в 10сс 32(8)=26(10)
214(5)=59(10) х=33(10)=21(16сс)
5.х=6(10)=6(16сс), одинаковые и в 10сс и в 16 сс
Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..
const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>