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.
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=3 to n do
if i mod 2=1 then s:=s+2/(i*(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.
olm-1.102018260 , bạn vào lớp này ấn tham gia rồi chờ cô duyệt nhé !
Bước 1 nhập mã lớp: olm-1.102018260
Bước 2: nhấn tìm kiếm
Bước 3: chọn tham gia
Bước 4 chat với cô qua Olm ghi tên mà em muốn đổi sang.
Bước 5: chờ cô duyệt và đổi tên hiển thị.
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 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (4<a[i]) and (a[i]<15) then t:=t+a[i];
writeln(t);
readln;
end.
:) chia buồn
Phải chịu.
làm sao mà mất dc
mày mất thì kệ mày
sao mà mất
phải làm sao phải chẹo