Var a,b : integer; begin writeln('a'); readln(a); writeln('b'); readln(b); while a> 0 do begin if b> 0 then writeln ('a и б одного знака'); else writeln ('a и б разного знака); end; while a< 0 do begin if b< 0 then writeln ('a и б одного знака'); else writeln ('a и б разного знака); end; end.
Спасибо
Ответ дал: Гость
v - объём цилиндрачисло пи = 3,14язык программирования: паскальvarv, r, h : real; beginreadln (r); readln (h); v : = 3.14 * sqr(r) * h; writeln (v)end.
Ответ дал: Гость
сначала найдем производную первого порядка
производная из этой функции равна произведению самой функции и производной степени
y'==
теперь второго порядка
тот же принцип из той же функции только домножаем еще на 7/5
Популярные вопросы