Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
Bài 1
Lỗi:
1) Program bai 1; => sửa: Program bai1;
2) Var x; n: integer; => sửa: Var x, n:integer;
3) X = 12 => sửa: x:=12;
-------------------
Bài 2
Lỗi
1) Program 2bai; => sửa: Program bai2;
2) Var i, n, s:integer;
3) S:=0 => sửa S:=0;
4) For i:=0,5 to n do => sửa: For i:=1 to 5 do
5) S=S+i; => sửa: S:=S+i;
![](https://rs.olm.vn/images/avt/0.png?1311)
= 100√3 và
ngược hướng với hướng
với E là đỉnh thứ tư của hình bình hành MACB
![](https://rs.olm.vn/images/avt/0.png?1311)
a) (x4 – x2 + x - 1) =
x4(1 -
) = +∞.
b) (-2x3 + 3x2 -5 ) =
x3(-2 +
) = +∞.
c)
=
= +∞.
d)
=
=
=
= -1.
![](https://rs.olm.vn/images/avt/0.png?1311)
Program bai tap 1; -> Program Bai_tap_1;
Uses CRT -> Uses CRT;
Var a;=integen; -> Var a: integer;
b;=real; -> b: real;
Constc;=3; -> Const c=3;
Begin
a:=200;
b:=a/c;
Readln;
End -> End.
Program bai tap 1; -> Program Bai_tap_1; Uses CRT -> Uses CRT; Var a;=integen; -> Var a: integer; b;=real; -> b: real; Constc;=3; -> Const c=3; Begin a:=200; b:=a/c;
![](https://rs.olm.vn/images/avt/0.png?1311)
a) \(\sqrt[3]{27}-\sqrt[3]{-8}-\sqrt[3]{125}=\sqrt[3]{3^3}+\sqrt[3]{2^3}-\sqrt[3]{5^3}=3+2-5=0\)
b) \(\frac{\sqrt[3]{135}}{\sqrt[3]{5}}-\sqrt[3]{54}.\sqrt[3]{4}=\sqrt[3]{\frac{135}{5}}-\sqrt[3]{54.4}=\sqrt[3]{27}-\sqrt[3]{216}=3-6=-3\)
![](https://rs.olm.vn/images/avt/0.png?1311)
< a < π => sina > 0, cosa < 0
cos2a = = ±
Nếu cos2a = thì
sina =
=
cosa = -
Nếu cos2a = - thì
sina =
cosa = -