А листик тебе Почтой России выслать или через знакомых передать? В задачке можно вывести формулу, но мне лень, сделаем через цикл.
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР дрожжи, процент, расход, дней: ВЕЩ; сч: ЦЕЛ;
УКАЗ дрожжи := 120; Вывод.Цепь("p: "); процент := Приём.Число(); Вывод.Цепь("Tx: "); расход := Приём.Число(); Вывод.Цепь("Tt: "); дней := Приём.Число(); ОТ сч := 1 ДО дней ВЫП дрожжи := дрожжи + дрожжи * (процент / 100) - расход КОН; Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)
КОН Задание.
echervyakov
04.03.2020
Консольное приложение: program P; {$APPTYPE CONSOLE} uses Windows, SysUtils;
var xn,xk,dx,x,z,s,p:real; i:integer; begin readln(xn,xk,dx); x:=xn-dx; s:=0; p:=1; for i:=1 to round((xk-xn)/dx)+1 do begin x:=x+dx; z:=sin(cos(x)); if z>x then s:=s+z else p:=p*z; if i mod 3=1 then writeln(i,' ',x:5:3,' ',z:7:5); end; writeln('s = ',s,' p = ',p); end.
ответ: 90
Объяснение: