var i,n:integer;
x,y,A:real;
begin
write('Nhap gia tri cho x va n');
readln(x,n);
A:=0;
y:=1;
for i:=1 to n do
begin
y:=y*sin(x);
A:= A + y;
end;
write('Tong A la: ',A:8:4);
readln
end.
var i,n:integer;
x,y,A:real;
begin
write('Nhap gia tri cho x va n');
readln(x,n);
A:=0;
y:=1;
for i:=1 to n do
begin
y:=y*sin(x);
A:= A + y;
end;
write('Tong A la: ',A:8:4);
readln
end.
1. Viết khai báo cho các biến sau: biến A kiểu số nguyên, biến B kiểu số thực, biến C kiểu kí tự, biến R kiểu xâu kí tự. 2. viết chương trình nhập vào 2 số A,B. Tính và in ra tích 2 số A,B
làm theo dạng tệp pascal: Nhập 2 số tự nhiên n, m tính giai thừa số lớn hơn Xác định số nhỏ có phải số nguyên tố hay không
Viết trương trình Pescal, tính tổng các số nguyên tố nằm trong khoảng từ X đến Y rồi in ra màn hình .Với X,Y là các số tự nhiên được nhập từ bàn phím ra 2<x<y
các bn giúp mik tin với
NHẬP VÀO DÃY SỐ GỒM n PHẦN TỬ, n NHẬP TỪ BÀN PHÍM
a) tính tổng các số am trong dãy
b) tính tổng các số chia hết cho 2 trong dãy
c) tính tổng các số dương và chia hết cho 3 trong dãy
HD: dựa vào chương trình bài 2
b) nêu điều kiện để 1 số chia hết cho 2
c) khi có 2 điều kiện em cần dùng thêm hàm nào?
MONG CÁC BN TRẢ LỜI SỚM GIÚP MIK
Xác định INPUT, OUTPUT của các bài toán sau:
Tìm giá trị tuyệt đối của 1 số nguyên a cho trước.
Tính tổng các phần tử dương của dãy n số thực cho trước.
Tính số các số chẵn trong dãy n số thực cho trước
Tính Tổng 50 số tự nhiên đầu tiên
. Giup m z nhae
Nhập một ký tự a, viết chương trình thực hiện các công việc sau:- Nếu a=’S’ thì thực hiện phép tính 20+30;- Nếu a=’P’ thì thực hiện phép tính 20*30
nhập n là số nguyên từ bàn phím và thực hiện + nếu n là số Chẵn thì S=2+4+6+.....+n + nếun là số lẻ thì S=1+3+5+...+n
giup minh vs mn
Hãy viết chương trình nhập vào 1 dãy N số nguyên từ bàn phím ( N là số nguyên dương đc nhập vào bàn phím ) .tính và in ra màng hình các yêu cầu sau :
a) Tính tổng các số vừa nhập
b) Tính tích các số vừ nhập
c) Tính trung bình của các số vừa nhập
d) HÃy tìm số lớn nhất và bé nhất