1^1+2^2+3^3=1+4+27=32

uses crt;

var m,h,b,t,n: Integer;

Tbc: real;

begin

clrscr;

write('Nhap 5 so tu nhien: '); readln(m,h,b,t,n);

tbc:= (m+h+b+t+n)/5;

If (m >= 0) and (h>=0) and (b >=0) and (t >=0) and (n>=0) then writeln('Trung binh cong cua nam so do la ',tbc:1:2);

readln;

end.

Liệt kê các bước:

- Bước 1: nhập a

- Bước 2, 3:

+ Nếu a chia hết cho 2 thì a là số chẵn

+ Ngược lại a là số lẻ

- Bước 4: Xuất ra màn hình

- Bước 5: Kết thúc chương trình.

uses crt;

Var a,b,i : Integer ;

Begin

Clrscr ;

Write ('Nhap a: '); readln (a);

Write ('Nhap b: '); readln (b);

i:=a + b;

If i mod 2 = 0 then writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so chan')

Else writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so le');

Readln ;

End.

Trộn ô là sao bạn?