Var
x:real;
i:integer;
begin
x:=-3*pi;
for i:=1 to 6 do begin
Writeln(x:9:6,3*cos(x/3):16:6);
x:=x+0.8
end
end.
<u>Результат</u>
-9.424778 -3.000000
-8.624778 -2.893964
-7.824778 -2.583352
-7.024778 -2.090120
-6.224778 -1.449137
-5.424778 -0.705713
Var a,b,h,x,x1,x2:real;
function F(x:real):real;
begin
F:=cos(x)/sin(x)+1;
end;
begin
writeln('Функция: F(x)=ctgx+1');
write('Введите крайние точки отрезка: '); readln(x1,x2);
write('Введите шаг: '); readln(h);
writeln('| x | F(x) |');
writeln('_________________');
if x1>x2 then begin
a:=x2; b:=x1; end
else begin
a:=x1; b:=x2; end;
x:=a;
while x<=b do
begin
writeln('|',x:7:3,'|',f(x):7:3,'|');
x:=x+h;
end;
end.
1) 01101011
2) а)50 б)214
3.а-2, б-1, в-4, г-3
4. <
>
=
5. a)68,105 б) 0,000152 в) 241300
6. а) 0,6711011*10³ б) 0,73211*10⁻³
Когда щёлкнешь по зеленому флажку
Всегда [8] шагов (можете [10] шагов)
Повторить [2] раза
Сменить на [1] костюм
Идти в точку - 123_31
Выбрать костюм [2]
Идти [8] шагов (можете [10] шагов)
Сменить на [3] костюм (Костюм мышки)
1)0000010101000110
2)119
3)если я правильно поняла, то А нужно умножить на 16, тогда:
А=10 ( числа от 10-15 обозначаются буквами алфавита по порядку)
10*16+1110=1270
1270= 0000010011110110