uses crt;
var t,a,i:integer;
begin
clrscr;
a:=5;
t:=0;
for i:=1 to 20 do
begin
t:=t+a;
a:=a+5;
end;
writeln(t);
readln;
end.
uses crt;
var t,a,i:integer;
begin
clrscr;
a:=5;
t:=0;
for i:=1 to 20 do
begin
t:=t+a;
a:=a+5;
end;
writeln(t);
readln;
end.
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
Viết chương trình tính số ngày của 1 năm. Biết năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100.
viết chương trình tính tổng các số lẻ trong phạm vi từ M đến N với M, N là 2 số nguyên dương được nhập từ bàn phím (M<N).
giúp mình với ạ :<
Viết chương trình nhập từ bàn phím một dãy số nguyên dương gồm N (N <= 100) phần tử mỗi phần tử có giá trịnh không quá 500. Hãy in ra màn hình số lượng các phần tử trong dãy là số nguyên tố và tổng các số nguyên tố đó .
Viết chương trình tính va xuất ra TBC từ 1 - N ( N là số nhập từ bàn phím).
Viết chương trình nhập vào điểm trung bình của một học sinh và phân loại học sinh theo tiêu chuẩn sau:
9≤ Điểm TB Loại A7≤ Điểm TB < 9 Loại B5≤ Điểm TB < 7 Loại CĐiểm TB < 5 Loại DInputGồm số số thực TB(0<=TB<=10) �� (0≤��≤1OutputGhi ra một trong các kí tự thộc tập {A, B, C, D}.Sample InputCopy7.5Sample OutputCopy8Câu 1: 2e^x+y/x2+y biểu thức sau viết trong pascal sẽ là ?
Câu 2: lập chương trình nhập vào số n rồi tính
S= ½+ 2/3+ ¾+….+n/n+1
Viết chương trình nhập vào 2 số nguyên dương x, y(x<y)
-Đếm số các số chẵn và lớn hơn 100
_Tính tổng số lẻ hoặc chia hết cho 5 trong khoảng từ x đến y(làm bằng 2 cách for do và while do)
Viết 1 chương trình nhập vào 2 số nguyên dương x, y(x<y)
_Đếm số các số chẵn và lớn hơn 100
_Tính tổng số lẻ hoặc chia hết cho 5 trong khoảng từ x đến y(làm bằng 2 cách for do và while do)