Ответ: <span>1111011111001011
Переводим в десятичную:
</span>F7CB16 = 15∙163+7∙162+12∙161+11∙160 = 61440+1792+192+11 = 6343510<span>
Потом это число переводим в двоичную:
</span>63435/2=<span>31717 (остаток 1)
</span>31717/2=<span>15858 (остаток 1)
</span>15858/2=<span>7929 (остаток 0)
</span>7929/2=<span>3964 (остаток 1)
</span>3964/2=<span>1982 (остаток 0 )
</span>1982/2=<span>991 (остаток 0)
</span>991/2=495 <span>(остаток 1)
</span>495/2=<span>247 (остаток 1)
</span>247/2=<span>123 (остаток 1)
</span><span>123/2=61 (остаток 1)
</span>61/2=30 (остаток 1)
30/2=15 (остаток 0)
15/2=7 (остаток 1)
7/2=3 (остаток 1)
3/2=1 (остаток 1)
Последний ответ 3/2=1 - эту единицу берём и наоборот собираем остатки.
Program fdg;
uses crt;
var a:char b:integer;
Begin
clrscr;
writeln('Введите марку топлива латиницей');
readln(a);
writeln('Введите сколько литров вам нужно бензина этой марки ');
readln(b);
If a=ae
Что-то вроде этого:
Select * from readers (условное название таблицы читателей) where reader_id not in (select reader_id from books (условное название таблицы книг) where year(date_taken)=year(date())-1) (см. руководство по синтаксису и функциям применительно к конкретной версии SQL).
const nn=10;
var
a:array [1..nn] of integer;
i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to nn do readln(a[i]);
for i:=1 to nn do
begin
if a[i] mod 2 =0 then s:=s+1;
if a[i] mod 10 =5 then k:=k+1;
end;
writeln('Четных элементов: ',s);
writeln('Элементов оканчивающихся на 5: ',k);
end.
