Var
x,prod1,prod2,ost:real;
begin
Write('Привезено картофеля, кг: ');
Read(x);
prod1:=x*1/4; { продано в первый день }
ost:=x-prod1; { остаток от продажи }
prod2:=ost*2/5; { продано во второй день }
ost:=x-(prod1+prod2);
Writeln('Оcталось продать, кг: ',ost)
end.
<u>Примеры</u>
Привезено картофеля, кг: 2540
Оcталось продать, кг: 1143
Привезено картофеля, кг: 743
Оcталось продать, кг: 334.35
<span>) Почему именно так: if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6) </span>
<span>else gotoxy(wherex+1,wherey-6); (не понятно почему именно диапазон месяцев от 1 до 8 включительно?) </span>
<span>2) Зачем писать так: if d+1=8 then {если день недели воскресенье} , а не вот так if d=7 then ? (если писать что d=7, то числа месяцев отходят от нужной позиции)<span> </span></span>
Ответ:
1. Каждая буква, включая пробелы и знаки препинания, являются символами. В данном примере 38 символов, значит 38 * 16 бит = 608 бит
Ответ: 608 бит
2. Что бы узнать количество символов в документе, сначала необходимо узнать сколько символов на одной странице
50 * 64 = 3200 символов.
Далее нужно узнать сколько символов на 16-ти страницах
3200 * 16 = 51200 символов
Каждый символ весит 16 бит
51200 * 16 = 819200 бит
Переводим биты в байты
819200 / 8 = 102400 байт
Переводим байты в Кбайты
102400 / 1024 = 100 Кбайт
Ответ: 100 Кбайт
2081(1) / 2 = 1040(0) / 2 = 520(0) / 2 = 260(0) / 2 = 130(0) / 2 = 65(1) / 2 = 32(0) / 2 = 16(0) / 2 = 8(0) / 2 = 4(0) / 2 = 2(0) / 2 = 1
100000100001,
переворачиваем число:
100001000001
Теперь считаем кол-во нулей, их: 9.