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.
viết chương trình tính tổng 100 số tự nhiên chẵn đầu tiên.In ra màn hình tổng đó.
GIÚP MÌNH NHANH VS!!!!!!!!
Viết chương trình nhập vào một dãy số nguyên. Cho biết trong dãy có bao nhiêu số chẵn với n nhập từ bàn phím
viết chương trình đếm số dương trong dãy n số nguyên
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1.Cho đoạn chương trình sau :
S:= 0 ; n:= 0 While S <= 7 do
begin n:= n+1; S:= S+n ; end ;
a)Tính số vòng lặp.
b)Sau khi thực hiện chương trình giá trị biến S bằng bao nhiêu?
Viết chương trình C++ in ra màn hình các số chia hết cho 3 trong phạm vi từ 1 đến n (n là số nguyên dương được nhập từ bàn phím)
Viết chương trình nhập số nguyên dương N. Tính tổng các ước số của số N đã nhập.
Viết chương trình tìm tất cả các ước của số nguyên dương n (n nhập từ bàn phím).
viết chương trình in ra màn hình từ 1 đến n, n là số nguyên dương nhập từ bàn phím
