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.
program bai1;
uses crt;
var a:longint; tiendien:real;
begin
clrscr;
readln(a);
if a<=100 then tiendien:=a*1000;
if a<=150 then tiendien:=100*1000+2000*(a-100);
if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);
if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);
Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');
readln;
END.
Câu 1 :
a) (a+b)*(a+b)*(d+e)
b) a*x*x+b*x*x+c*x
Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?
Câu 3:
Uses crt;
Var S,a,b:real;
Begin
clrscr;
Writeln('Nhap chieu dai a = '); Readln(a);
Writeln('Nhap chieu rong b = '); Readln(b);
S := a*b;
Write('Dien tich hinh chu nhat la ', S );
Readln;
End.
xin lỗi mk lộn nêu qui tắc đặt ngôn ngữ lập trình trong pascal
Câu 1: NFC được viết tắt từ cụm từ nào?
A. Near Field Communication
B. Near Field Computer
C. Narrow Field Communication
Câu 2: Chiếc điện thoại nào sau đây được trang bị cảm biến vân tay ở cạnh bên?
A. Google Pixel 4
B. LG G8X ThinQ
C. Sony Xperia 5
Câu 3: Thư mục bảo mật là tính năng được tích hợp trên điện thoại thông minh của?
A. OnePlus
B. Motorola
C. Samsung
Câu 4: Apple là nhà sản xuất điện thoại đầu tiên loại bỏ cổng cắm tai nghe 3.5 mm trên điện thoại?
A. Đúng
B. Sai
Câu 5: Android ban đầu được thiết kế cho nền tảng nào?
A. Digital cameras
B. Laptops
C. Smartphones
Câu 6: Chiếc điện thoại trong ảnh là?
A. OnePlus 7T
B. Asus Zenfone 6
C. Samsung Galaxy Note 10
Câu 7: Giao diện Android tùy chỉnh dưới đây có tên là gì?
A. OnePlus OxygenOS
B. Samsung One UI
C. HTC Sense
Câu 8: Công ty nào sở hữu quyền sản xuất và bán điện thoại dưới thương hiệu Nokia?
A. TCL Communication
B. BBK Electronics
C. HMD Global
Câu 9: Chiếc điện thoại Android đầu tiên được công bố vào năm nào?
A. 2008
B. 2005
C. 2010
Câu 10: Cái nào sau đây không phải là codec (bộ mã hóa và giải mã) Bluetooth?
A. aptX
B. NPU
C. LDAC
program bai1;
uses crt;
var a:longint; tiendien:real;
begin
clrscr;
readln(a);
if a<=100 then tiendien:=a*1000;
if a<=150 then tiendien:=100*1000+2000*(a-100);
if a<=200 then tiendien:=100*1000+2000*50+2500*(a-150);
if a>=200 then tiendien:=100*1000+2000*50+2500*50+3000*(a-200);
Writeln('so tien dien trong thang la:',tiendien:9:0,'VND');
readln;
END.
1,A
2,
program tong20so;
uses crt;
var i,S:longint;
begin
S:=2;
for i:=1 to 40 do
begin
if i mod 2 = 0 then S:=S+i;
end;
write('Tong 20 so chan dau tien la:',S);
readln
end.
3,
program hinhchunhat;
uses crt;
var a,b:integer;
begin
write('Nhap chieu dai hinh chu nhat:');Readln(a);
write('Nhap chieu rong hinh chu nhat:');Readln(b);
write('Chu vi hinh chu nhat la',(a+b)*2);
write('Dien tich hinh chu nhat la',a*b);
readln
end.
Chọn phương án A.
- Chú ý môn học bạn nhé
À nhầm , xin lỗi nha