При прохождении первого цикла массив заполнится так:
А = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
t=1
А во втором цикле в задании ошибка. Цикл идет от 0 до 9
A(-1) существовать не может
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
Думаю, что 10 питобайт - это 8 х 10^16
1) 10000101(двоичная), 205(Восьмеричная), 85(шестнадцатеричная). 2)504(Десятеричная) 1 * 2^9 + 1 * 2^8 + 1 * 2^7 + ... + 1 * 2^4 + 0 + 0 + 0 3)770(Восьмеричная), 1F8(Шестнадцатеричная) 4)400(Десятичная) 5)510(десятичная) 6)42F(Шестнадцатеричная) 7)162464(Восьмеричная)
Удачи)