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.
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;
= 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
a) (x4 – x2 + x - 1) = x4(1 - ) = +∞.
b) (-2x3 + 3x2 -5 ) = x3(-2 + ) = +∞.
c) = = +∞.
d) =
= = = -1.
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;
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\)
< a < π => sina > 0, cosa < 0
cos2a = = ±
Nếu cos2a = thì
sina =
=
cosa = -
Nếu cos2a = - thì
sina =
cosa = -