Cho dãy số a0 , a1 ,…., an-1 : a) Tìm tổng của tất cả các phần tử trong danh sách. b) In tất cả các phần tử trong danh sách. c) In tất cả các phần tử âm trong danh sách. d) Kiểm tra xem có phải tất cả các phần tử trong danh sách đều dương hay không. e) Tìm phần tử nhỏ nhất và lớn nhất trong danh sách f) Sắp xếp danh sách theo thứ tự tăng dần
Bài 6: Phép toán, biểu thức, câu lệnh gán
7 tháng 12 2022 lúc 12:37
Lập trình tính giá trị biểu thức: \(f=a^{15}+15a+2022\) với giá trị a là số nguyên được nhập vào từ bàn phím.
uses crt;
var a,s:integer;
begin
clrscr;
readln(a);
s:=1;
for i:=1 to 15 do s:=s*a;
writeln(s+15*a+2022);
readln;
end.
Đúng 1
Bình luận (0)
M.n giúp em với ạ tí em thi rồi
Câu 1:
a: 1/4*sqrt(a*a-b*b)
b: (a*a+b)*(c+1)*(c+1)*(c+1)
Đúng 1
Bình luận (0)
giúp mình với cần gấp ạ
Biểu diễn biểu thức logic với các trường hợp sau:
a. số x nằm trong khoảng (0;10)
b. số x nằm trong khoảng [0;1] hoặc [5;10)
c. số x nằm trong khoảng (2;5) và (4;8)
Giúp em với a
Program tuluan;
uses crt;
var xo,yo,xa,ya,xb,yb,T : real;
Begin
Clrscr;
Writeln('Nhap lan luot toa do 3 diem O,A,B:');
Readln(xo,yo,xa,ya,xb,yb);
T := (xa-xo)*(xb-xo)+(ya-yo)*(yb-yo);
Writeln('Tich vo huong cua 2 vecto OA va OB la:',T:8:2);
Readln;
End.
Đúng 0
Bình luận (0)
viết chương trình nhập số nguyên dương N (N
Lập chương trình tổng S=2022+1/2+2/3+3/4+....n/n+1
Var i,n:integer;
s:real;
Begin
Write('Nhap n = ');readln(n);
s:=0;
For i:=1 to n do
s:=i/(i+1);
Write('Tong la ',s:10:2);
Readln;
End.
Đúng 1
Bình luận (0)
Cho hình tròn tâm I(0;0) bán kính R (0<R<20). Viết chương trình nhập vào bán kính R, tính và đưa ra diện tích hình tròn. MÌNH ĐANG CẦN GẤP Ạ
uses crt;
var r:real;
begin
clrscr;
readln(r);
writeln('Chu vi la:',r*2*pi:4:2);
writeln('Dien tich la: ',r*r*pi:4:2);
readln;
end.
Đúng 0
Bình luận (0)
