Hỏi đáp về Cấu trúc lặp - Tin học 11

1. S=1 x 2 x 3 x..... x N

2. S= 1^2 x 2^2 x 3^2 x.... x N^2

S=1+2+3+...+N nếu N lẻ

S=(N+1)/2 nếu N chẵn

Viết chương trình với cấu trúc For...do

S=1² +2²+3²+...+n² và S=1+3+5+...+(2n-1) với n nguyên dương được nhập vào từ bàn phím.

S = 101 + 1 + 2 + 3 +...+ n +... cho đến khi S > 150

Program tong_so_le;

Var N, i : byte; Tong : integer;

A: Array(1..250) of Integer ;

begin

write('Nhap gia tri cho N='); Readln(N);

write('nhap gia tri cho day so');

For i=1 to N do Readln(A[i]);

Tong :=0;

For i :=1 to N do;

If (A[i] mod 2<>0) then Tong :=Tong + A[i];

Write('Tong cac so le trong day so la: ',Dem);

Readln

End.

b, y=1+2+3+....+100

c, y=1+2+3+...+n cho đến khi y>3200