uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

Chương trình có thể viết như sau:

S = 0

n = int(input("Nhập số tự nhiên n: "))

for i in range(1, n + 1):

S = S + 1/i

print("Tổng nghịch đảo các số từ 1 tới ",n," là: ", S)

n = int(input('Nhập số tự nhiên n: '))

T = 1

for i in range(1,n+1):

    T *= i

print('Tích các số từ 1 đến',n,'là:',T)

program tinh_tien_dien;

var

      kwh, tien_chua_thue, tien_thue, tien: real;

begin

      writeln('Nhap so kWh dien tieu thu trong thang:');

      readln(kwh);

      if kwh <= 50 then

            tien_chua_thue := kwh * 600

      else if kwh <= 100 then

            tien_chua_thue := 50 * 600 + (kwh-50) * 1004

      else

            tien_chua_thue := 50 * 600 + 50 * 1004 + (kwh-100) * 1214;

      tien_thue := tien_chua_thue * 0.1;

      tien := tien_chua_thue + tien_thue;

      writeln('So tien dien phai tra trong thang la: ', tien:0:0, ' VND (trong do, thue 10% la ', tien_thue:0:0, ' VND, tien chua thue la ', tien_chua_thue:0:0, ' VND).');

end.

n = int(input("nhập năm dương lịch: "))

if n%4 == 100 or (n%4 == 0 and n%100 == 0):

    print("năm đó là năm nhuận")

else:

    print("năm đó không phải là năm nhuận")

n=float(input())

if(n<5):

   print(n*20000)

else:

   print(n*18000)

ho_va_ten=input("nhập họ và tên học sinh:")

t=float(input("Điểm thi Toán:"))

v=float(input("Điểm thi Văn"))

a=float(input("Điểm thi Anh"))

print("Điểm trung bình",(t**2+v+a)/4)

tong=float(input())

hieu=float(input())

a=(tong+hieu)/2

b=tong-a

print(a,b)

#Source Code Tính Chu Vi Và Diện Tích Hình Chữ Nhật 

#Chiều Dài
length = float(input("Nhập Chiều Dài: "))
#Chiều Rộng
width = float(input("Nhập Chiều Rộng: "))
#Chu Vi
print("\nChu Vi Hình Chữ Nhật: " + str((length + width) * 2))
#Diện Tích
print("Diện Tích Hình Chữ Nhật: " + str(length * width))

//Nhap vao ban kinh r cua mot hinh tron. Tinh chu vi va dien tich cua hinh tron. In ket qua ra man hinh.

#include <stdio.h>;

int main()

{

 float r, s, c;

 #define PI 3.14;

 printf("Nhap ban kinh r: ");

 scanf("%f", &r);

 c = r * 2 * PI;

 s = r*r*PI;

 printf("Chu vi va dien tich cua hinh tron lan luot la %f va %f", c, s);

 return 0;

}