hãy mô tả thuật toán tính tổng các số dương trong dãy số A=\(\left\{a_1,q_2,.........,a_n\right\}\)
mn viết ra cho mk như chương trình free pascal nhoa
mk yeu mn nhìu
hãy mô tả thuật toán để tính tổng A Sau đây(n là số tự nhiên được nhập vào từ bàn phím):
A=\(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...........+\dfrac{1}{n\left(n+2\right)}\)
mn viết ra cho mk như chương trình free pascal nhoa
mk yeu mn nhìu
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.
viết chương trình nhập số nguyên dương n. Nhập dãy gồm n số nguyên. Hãy tính tổng các số nằm ở vị trí chẵn trong dãy ?
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.
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N>10). Tính và in ra màn 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ừa nhập
c. tính tb các số vừa nhập
d. hãy tìm số lớn nhất và số bé nhất
e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhập
f. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãy
giúp mik vs nha :(((
hãy mô tả thuật toán tính tích hai số a và b bằng sơ đồ khối? cho biết đầu vào và đầu ra của thuật toán
hãy mô tả thuật toán tính tích hai số a và b bằng sơ đồ khối? cho biết đầu vào và đầu ra của thuật toán
- Đầu vào: Giá trị a, giá trị b
- Đầu ra: giá trị tích
( Ko chắc là đúng )
hãy mô tả thuật toán tính tích hai số a và b bằng sơ đồ khối? cho biết đầu vào và đầu ra của thuật toán
Tính trung bình cộng của a số a , b, c . Hãy tìm Input và Output và mô tả thuật toán cho bài .
Input: a,b,c
Output: (a+b+c)/3
Viết chương trình bằng ngôn ngữ Pascal nhập dãy số A, biết số phần tử của dãy là n. Xác định và in ra các phần tử là số chẳn trong dãy A. Nếu nhập n<0 thì thông báo " bạn nhập sai, yêu cầu nhập lại "
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.
Cho số tự nhiên gốm các số tự nhiên liên tiếp từ 1 đến 1983 được viết theo thứ thự liền nhau như sau:
12345678910111213............1980198119821983.
Hãy tính tổng tất cả các chữ số của dãy số đó .
(Thi học sinh giỏi toán lớp 5 toàn quốc)~ giúp mk nha đang cần gấp
(so cuoi +so dau ) ×1983 ÷2 =1967136
nho kb
ko phải âu ! Mk thử hỏi cô nhưng cô bảo là ko phải!