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.
VAR A,n:real;
begin
write('nhap gia tri n:');readln(n);
A:=1/(1*3)+1/(2*4)+1/(3*5)+.........+1/n(n+2);
writeln('gia tri cua A la:,'A);
readln;
end.
program im_14424;
uses crt;
var A: array[1..100000] of integer;
S,i,n: integer;
begin
clrscr;
write('Nhap vao n: ');
readln(n);
S:=0;
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(A[i]);
if (A[i] mod 2 = 0 then S:=S+i;
end;
write(S);
readln
end.
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Bai1: a) \(sqr\left(5-1\right)\) mod 3
b) \(sqr\left(10\right)+\left(25-4\right)\)/4
Bai2:Xác định bải toán
Input : Chiều dài b và chiều rộng a.
Output: Diện tích và chu vi thửa ruộng.
Thuật toán
B1:Nhập a,b
B2:CV<-- (a+b)*2
Và S<--a*b
B3: -Thông báo lên màn hình diện tích là s
-Và chu vi là cv
program bai_5;
uses crt;
var a,b,c :real;
BEGIN
write('nhap vao so a'); Readln(a);
write('nhap vao so b'); Readln(b);
write('nhap vao so c'); Readln(c);
if a<0 then a:=-a;
max:=a;
if max <b then max:=b;
if max<c then max:=c;
write('gia tri tuyet doi cua a la:',a);
write('so lon nhat trong ba so a,b,c la:',max);
Readln
END.
Thanks
Program Hinh_tron;
Uses crt;
Var r,dt:real;
Begin
clrscr;
Writeln(' Nhap ban kinh hinh tron:');
Readln(r);
dt:= r*r*3.14;
Writeln('Dien tich hinh tron la:',dt);
Readln;
End.
uses crt;
var a:array[1..100]of integer;
n,i,max,min,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Trung binh cua day so la: ',t/n:4:2);
readln;
end.
* Thuật toán:
Bước 1: Nhập n và dãy số a1, a2…, an.
Bước 2: SUM ← 0; i ← 0.
Bước 3: Nếu ai > 0 thì SUM ← SUM + ai, ngược lại đến bước 4.
Bước 4: i ← i + 1;
Bước 5: Nếu i \(\le\) n thì quay lại bước 3.
Bước 6: Thông báo giá trị SUM. Kết thúc thuật toán.
* Chương trình: program tinhtong; uses crt; var a,n,i: integer; sum: real; begin clrscr; write('Nhap n vao'), read(n); write('nhap day A vao'), read(a1,a2,...,an); sum:=0, i:=0; if i <= n then if ai > 0 then sum:=sum+ai else i:i+1; writeln('tong cac so duong trong day la',sum:4:0) readln end. Theo mình thì ntn1GP cho bạn nào trả lời được câu này
input:dãy số A={a1,.......,an}
output:tổng các số dương dương trong dãy A
thuật toán để mình suy nghĩ ,tối mình làm .minhf ôn bài chiều thi nữa
Nguyễn Nhật Minh câu kia để tối mình làm thử chiều phải thi sử nữa
ok, sao cx đc :D
em giỏi tin nhỉ, cứ làm đi chị tick cho :)
thank bn Luân Đào nhìu nha