Const
a: array[1..11] of real = (0.75, 1.6, 2, 2, 2, 2, 2, 2, 2, 2, 2);
var
x, h, x1, x2: real;
function F(x: real): real;
var
i: integer;
x_n, res : real;
begin
res := a[1];
x_n := 1;
for i := 1 to 10 do
begin
x_n := x_n * x;
res := res + a[i + 1] * x_n;
end;
F := res;
end;
begin
x1 := 0; x2 := 2;
h := 0.2;
x := x1;
repeat
writeln('x = ', x:3:1, ' y = ', F(x):9:3);
x := x + h;
until x > x2;
end.
Ответ:
=ЕСЛИ(ИЛИ((A2=12);(A2=1);(A2=2));"Зима";ЕСЛИ(ИЛИ((A2=3);(A2=4);(A2=5));"Весна";ЕСЛИ(ИЛИ((A2=6);(A2=7);(A2=8));"Лето";ЕСЛИ(ИЛИ((A2=9);(A2=10);(A2=11));"Осень";" - "))))
Объяснение:
2) 500 Кбайт / 2500 байт =500*1024 байт / 2500 байт =204.8
Ответ 204 (страницы)
3) 1.44 Мбайт / (60*55* 8 бит)= 1.44 *1024*1024 * 8 бит / (60*55*8) =457.6 =456 страниц
4) I =8 бит * 50*60*55=1320000 бит =165000 байт =161.1 Кбайт
5) 8 букв значит 8 байт (одна буква имеет 8 бит=1 байт)
Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>