Var
a, b, c, sum: integer;

function min(x, y: integer): integer;
begin
if(x > y) then result := y
else result := x;
end;

begin
sum := 0;
read(a, b, c);
a := min(a, min(b, c));
while a > 0 do
begin
if(a mod 10 mod 2 <> 0) then sum := sum + a mod 10;
a := a div 10;
end;
write(sum);
end.

0 0

4 года назад

Статья набранная на компьютере содержит 64 страницы на каждой 40 строк в каждой строке 40 символов unicode даю 100 балов

Макс 892002 супер... [2]

Ответ:

Объем статьи = 200 Кбайт

Объяснение:

В кодировке Unicode для кодирования символа используется 16 бит (2 байта).

Объем статьи = 64*40*40*2 байт = 64*40*40*2/1024 Кбайт = 200 Кбайт

0 0

4 года назад

Прочитать ещё 2 ответа

Перевести число 1101110.101 из двоичной сс в восьмеричную и шестнадцатиричную

Юлия Зверькова

=156.5(8)=6Е.А(16)
ттттттттттттттттттт

0 0

4 года назад

Помогите пожалуйста! Нужно перевести в одиннадцатиричную. 860(10) ; 785(10) ; 149,375(10)

Алексей2825

Делим число на 2 и выписываем остатки
860 = 430·2 + 0
430 = 215·2 + 0
215 = 107·2 + 1
107 = 53·2 + 1
53 = 26·2 + 1
26 = 13·2 + 0
13 = 6·2 + 1
6 = 3·2 + 0
3 = 1·2 + <span>1

</span>

0 0

4 года назад