uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
t:=0;
for i:=1 to n do
if i mod 5=0 then t:=t+i;
writeln(t);
readln;
end.
Viết 1 công thức nhập một số nguyên N trên bàn phím yêu cầu a) xét tính chẳn lẽ của N b) tính tổng các số chia hết cho 5 trong phạm vi từ 1 tới N
Nhập từ bàn phím hai số nguyên dương M,N (M<N), tính và đưa ra màn hình tổng các số chia hết cho 3 và 5 trong phạm vi từ M đến N.
Viết chương trình tính tổng các giá trị là bội của 5 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Viết chương trình nhập từ bàn phím số nguyên dương N Đưa ra màn hình số lượng các số lẻ chia hết cho 5 trong phạm vi từ 1 đến N
Viết chương trình tính tổng các giá trị là bội của 3 trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Viết chương trình tính tổng các giá trị lẻ trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Viết chương trình tính tổng các giá trị chẵn trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Tính tổng s và số lượng các số nguyên chẵn trong phạm vi từ a tới b với a,b được nhập từ bàn phím
nhập số nguyên N từ bàn (1<=N<=15)
in ra màn hình theo yêu cầu sao
1 dòng in số chẳn trong phạm vi1-N
1 dòng số lẻ từ 1-
1 dòng in tất cả các số từ 1-N
1 dòng in tất cả các số từ N-1
