tin 11

[nhocngo976]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1 bài trong SBT

3.13: Lập trình nhập từ bàn phím 3 số nguyên m,n,k. Tính và đưa ra màn hình bình phương các số không âm và lập phương của các số âm

 

[rua_it]

1 bài trong SBT

3.13: Lập trình nhập từ bàn phím 3 số nguyên m,n,k. Tính và đưa ra màn hình bình phương các số không âm và lập phương của các số âm

Var m,n,k,bp,lp:longint;

Begin
    bp:=0;
    lp:=0;
    Readln(m,n,k);
    If m<0 then lp:=lp+m*m*m else bp:=bp+m*m;
    If n<0 then lp:=lp+n*n*n else bp:=bp+n*n;
    If k<0 then lp:=lp+k*k*k else bp:=bp+k*k;
     Write('Binh phuong cua cac so khong am: ', bp);
     Write('Lap phuong cua cac so am : ',lp);
     Readln;
End.

 

[longvipkute]

bài này dễ quá ak ****************************?????????????
có ai pro hơn thì vào các bài của tuj post ở trang chủ kìa