Var
A:byte;
Begin
Write('Введите двузначное число: ');ReadLn(A);
if (A div 10) + (A mod 10) > 3 then WriteLn('Да')
else WriteLn('Нет')
End.
Program uva;
begin
write(1000/((50*50*40)/1000000)/2.5, "лимонов и "1000/((50*50*40)/1000000)/2.5*1.5 " апельсинов" );
//50*50*40 ищется объём одной коробки, /1000000 переводится в метры,
//1000/((50*50*40)/1000000) ищется количество коробок. нам нужно засунуть в // коробки как можно больше лимонов, т.к. они дороже. но их максимальное
//количество соотносится с апельсинами как 1:1,5. Всего частей 1+1,5=2,5
//лимоны отсюда одна часть, значит делим все коробки на количество
//частей и получаем количество лимонов. а количество апельсинов просто
//умножаем количество лимонов на 1,5
end.
var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then a[i]=abs(a[i]);
for i:=1 to 10 do
write(a[i]);
end.
Ответ:
1 байт = 8 бит
128 бит = 128 / 8 = 16 байт
1 Кбайт = 1024 * 8 = 8192 бит
1,5 Кбайт = 1024 * 1.5 = 1536 байт
2048 байт = 2048 / 1024 = 2 Кбайт
2 Мбайт = 2 * 1024 = 2048 Кбайт
81920 бит = 81920 / 8 / 1024 = 10 Кбайт
1,5 Мбайт = 1,5 * 1024 * 1024 = 1572864 байт
Объяснение:
При использовании палитры из 4 цветов для хранения одного пикселя требуется log(2)4 = 2 бита. Память для хранения изображения: 66*66*2 бит = 8712 бит