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 06;
Uses crt;
Var
T:real
i;n:integer;
Begin
clrscr;
write('n=1');Readln(n);
T:=06
for i:=1 to n do
T:=\frac{1}{1}.2+\frac{1}{2}.5+\frac{1}{3}.8+\frac{1}{4}.11
write('T=06'; T);
readln;
end.
Tham khảo!
- Phần mềm Microsoft Word làm việc với kiểu dữ liệu chữ.
- Phần mềm Microsoft Excel làm việc với kiểu dữ liệu số.
- Phần mềm Paint, Inkcape, Photoshop làm việc với kiểu dữ liệu hình ảnh.
- Phần mềm Adobe Premiere Pro, Movavi Slideshow Maker làm việc với kiểu dữ liệu video.
Em cảm ơn cô nhiều ạ! Em xin chúc cô luôn mạnh khỏe, bình an và có nhiều niềm vui trong công việc và cuộc sống.
Olm chào em, tất cả những điều em nói trên đây đều rất đúng và chính xác. Vì vậy xin phép em cô bật câu này lên chế độ câu hỏi hay để tất cả các thành viên thấy và hiểu rõ không bị kẻ xấu mạo danh cô Hoài lấy xu đi nữa. Ngoài ra vì bài viết này của em chứa nhiều thông tin bổ ích và cực kỳ chính xác nên cô sẽ thưởng em 100 xu
Chụp bằng đt xong cắm dây sạc đt vào máy tính. Truy cập vào bộ nhớ đt trên pc và đưa ảnh vào folder của mình📁
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
*Câu lệnh For..do
Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
*Câu lệnh For..do
Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
Cô hiện tại đang có hơn 31000SP rùi!
ngu à
m dung co dung toi t5hang ghe cua t
ngu
ngáo
kid à
ai hỏi
kid
aai hỏi