Program viet_chuong_trinh;
uses crt;
var
i,n,k: integer;
S:real;
begin
clrscr;
writeln('Moi nhap n = '); readln(n);
S:=0;
k:=0;
for i:=1 to n do
begin
k:=k+i;
S:=S + (1/k);
end;
write(S); readln;
end.
tính tổng S= 1+2+3+....+n, biết n là số nguyên dương được nhập từ bàn phím
giúp em ới ạ
Viết chương trình tính tổng dãy số:
S= \(1+\frac{1}{2^2}\)+\(\frac{1}{3^2}\)+...+\(\frac{1}{100^2}\)
S= \(1+\frac{1}{3^2}\)+\(\frac{1}{5^2}\)+...+\(\frac{1}{N^2}\)
Lập trình tính tích S=1*2*3*...*n cho tới khi n>=0 thì dừng
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
Cho một dãy số a[n] và số nguyên s, hãy tìm dãy số dài nhất có tổng bằng s, nếu không có thì xuất “KHONG CO”.(0<n<1000; 0<a[i]<=100; 0<s<5000)
Tên file: Daysos.cpp
Dữ liệu vào: Daysos.inp
Dòng đầu chứa số nguyên n và s
Dòng tiếp theo chứa các số nguyên là phần tử của mảng a
Dữ liệu ra: Daysos.out
Dòng đầu là độ dài của dãy số dài nhất có tổng bằng s
Dòng tiếp theo là giá trị của các phần tử có trong dãy
|
Daysos.inp |
Daysos.out |
|
10 11 10 1 1 2 3 4 11 2 3 1 |
6 1 1 2 4 2 1 |
|
10 11 10 2 4 6 8 8 2 4 4 8 |
KHONG CO |
Ai giúp mình bài này với ạ !
giúp mình với các bạn ơi !!! :(( CẢM ƠN NHIỀU Ạ!!
VIẾT CHƯƠNG TRÌNH TRÊN PASCAL ĐỂ GIẢI QUYẾT CÁC CÔNG VIỆC SAU:
1. TÌM GIÁ TRỊ LỚN NHẤT, NHỎ NHẤT CỦA 2,3 SỐ NGUYÊN
2. TÍNH TỔNG CÁC SỐ TỪ M ĐẾN N
3. TÍNH TỔNG CÁC SỐ CHẲN, LẺ CHIA HẾT CHO 2 HOẶC 3 TỪ M ĐẾN N (M,N LÀ SỐ NGUYÊN DƯƠNG NHẬP TỪ BÀN PHÍM, N>M).
viết chương trình nhập số nguyên dương n và danh sách gồm n số nguyên a0, a1,....an-1. Hãy tính tổng các số nguyên lẻ trong dãy ?
mn giúp em với ạ em đang gấp :(
viết ct pascal nhập 1 số nguyên dương bất kì và cho biết do la ngày mấy tháng máy 1 tháng cho có 30 ngày
help me please!!!!!
