Question

@Mk đang cần gấp cho t.2 lm bài kt mong mn giúp giùm ạ ♥

1.Viết chương trình tính tổng tất cả các số lẻ nhỏ hơn hoặc bằng n với n nhập từ bàn phím

2.Viết chương trình tính tổng tất cả các số chẵn nhỏ hơn hoặc bằng n với n nhập từ bàn phím

3.Viết chương trình tính tổng tất cả các ước của n với n nhập từ bàn phím

Answer 1

Bài 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if i mod 2<>0 then s:=s+i;
write('Tong cac so le nho hon hoac bang n la: ',s);
readln
end.

Answer 2

Bài 2:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if i mod 2=0 then s:=s+i;
write('Tong cac so le nho hon hoac bang n la: ',s);
readln
end.

Answer 3

Bài 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if n mod i=0 then s:=s+i;
write('Tong cac uoc cua n la: ',s);
readln
end.