Var a: integer; begin writeln('введите число '); readln(a); if a=1 then writeln('январь. 31 день'); if a=2 then writeln('февраль. 28 дней (29 в високосном году)'); if a=3 then writeln('март. 31 день'); if a=4 then writeln('апрель. 30 дней'); if a=5 then writeln('май. 31 день'); if a=6 then writeln('июнь. 30 дней'); if a=7 then writeln('июль. 31 день'); if a=8 then writeln('август. 31 день'); if a=9 then writeln('сентябрь. 30 дней'); if a=10 then writeln('октябрь. 31 день'); if a=11 then writeln('ноябрь. 30 дней') if a=12 then writeln('декабрь 31 день') end.
Function f(x: real): real; begin f := (x - 3) / (sqr(x) + 2) end;
var a, b, x, fa, fb, fx, eps: real;
begin Write('Введите через пробел границы интервала [a;b] и точность:'); Readln(a, b, eps); fa := f(a); if abs(fa) <= eps then Writeln('x=', a, ', y=', fa) else begin fb := f(b); if abs(fb) <= eps then Writeln('x=', b, ', y=', fb) else if fa * fb > 0 then Writeln('На указанном интервале корней нет') else repeat x := (a + b) / 2; fx := f(x); if abs(fx) <= eps then Writeln('x=', x, ', y=', fx) else if fa * fx > 0 then a := x else b := x; until abs(fx) <= eps end end.
Результат выполнения программы:
Введите через пробел границы интервала [a;b] и точность:-1 4 1e-4 x=2.9990234375, y=-8.88257162245635E-05
64
0.25
1
3
Объяснение:
sqr - квадрат
mod - остаток от деления
div - деление без остатка