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. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
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 = -