Có 3 loại máy cơ đơn giản: 

+) Mặt phẳng nghiêng

+) Đòn bẩy

+) Ròng rọc

python

n = int(input("Nhập số nguyên dương N: "))
found = False

for i in range(1, n//2+1):
    sum = i
    j = i + 1
    while sum < n:
        sum += j
        j += 1
    if sum == n:
        found = True
        start = i
        end = j - 1
        break

if found:
    print(n, "có tổng của nhiều số nguyên dương liên tiếp:")
    for k in range(start, end+1):
        print(k, end=" ")
else:
    print(n, "không có tổng của nhiều số nguyên dương liên tiếp.")

Input 20 số chẵn đầu tiên

Output tính tổng S

Thuật toán 

Bước 1 : Nhập 40 số ( vì 20 số chẵn => từ 1 đến n phải 40 số mới đủ 20 số chẵn )

Bước 2 : gán s:=0

Bước 3 : cho biến i chạy từ 1 đến 40 nếu imod2 = 0 => S := S + i

Bước 4 : in ra kết quả và kết thúc thuật toán

Chương trình

Program Hotboy ;

Uses crt ;

Var i,s : integer ;

Begin 

Clrscr ;

For i:= 1 to 40 do

Begin

If ( i mod 2=0 ) then s;=s+i

Write('ting tong',S)

End ;

Readln

End .

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

write('Sai tự chịu: ',S);

readln;

end.

program Lam_Lui;

var S:extended;

i,n:integer;

begin

clrscr;

write('Nhap n = ');

readln(n);

S:=0;

for i:=n downto 1 do S:=sqrt(i+S);

writeln('Sai tự chịu: ',S);

readln;

end.

Những chỗ sai được in đậm em nhé

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.

Sửa lại như sau:

program Ha_0908;

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);

readln;

end.

sai nhu nay 

Hà 0908 ko ';'

writeln... =;4;2'); => ko co dau ' nay nha