Var X,Y,K:integer; E,p:real; Begin Write('Сколько яблок в наличии: ');ReadLn(X); Write('Сколько человек: ');ReadLn(Y); Write('Сколько долларов за одно яблоко: ');ReadLn(E); Write('Сколько рублей за один доллар: ');ReadLn(p); if X mod 5 <> 0 then K:=X+5-(X mod 5) else K:=X; While K/Y<1.66 do K:=K+5; WriteLn('Требуемое количество яблок: ',K); WriteLn('Столько яблок придётся докупить: ',K-X); WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.'); End.
Пример:
Сколько яблок в наличии: 1 Сколько человек: 3 Сколько долларов за одно яблоко: 50 Сколько рублей за один доллар: 0.05 Требуемое количество яблок: 5 Столько яблок придётся докупить: 4 Стоимость докупленных яблок: 10.00 руб.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
Значение переменной останется нулем, потому что каждую итерацию цикла мы будем умножать какое-то число на ноль, а это в любом случае даст 0.
ответ: 0