К=4, всего 4 прохода цикла, т.к. вводимое число 1024 можно делить нацело на 10 только 4 раза (последнее частное 0). Программа внутри вложения
V=2048*100 бит/с=2^11 * 4*25=25*2^13 бит/с
F=1000*2^13 бит=8*125*2^13=125*2^16 бит
t=F/v=125*2^16/(25*2^13)=5*2^3=5*8=40 c
ответ 40 с
Что шоколадных стало 9. карамели стало 5. ирисок стало 4. А леденцов стало 3
Var
r:real;
Begin
Write('Введите радиус круга: ');ReadLn(r);
WriteLn('Площадь круга: ',Pi*r*r);
WriteLn('Длина окружности: ',2*Pi*r)
End.