viết chương trình nhập phím 3 số nguyên. KMN. 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ác số âm
viết chương trình nhập phím 3 số nguyên. KMN. 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ác số âm
Program NhatNgu;
Uses crt;
Var k,m,n,s: longint;
Begin
Clrscr;
Write(‘Nhap k: ‘); Readln(k);
Write(‘Nhap m: ‘); Readln(m);
Write(‘Nhap n: ‘); Readln(n);
s:=0;
If k<0 then s:=s+k*k*k
Else s:=s+k*k;
If m<0 then s:=s+m*m*m
Else s:=s+m*m;
If n<0 then s:=s+n*n*n
Else s:=s+n*n;
Write(‘S = ‘,s);
Readln
End.
uses crt;
var n,i:longint; a:array[1..3]of longint;
begin
clrscr;
write(‘Nhap 3 so: ‘);readln(a[1],a[2],a[3]);
write(‘Cac so khong am: ‘);
for i:=1 to 3 do if a[i] > -1 then write(a[i],’ ‘);
writeln; write(‘Lap phuong cac so am: ‘);
for i:=1 to 3 do if a[i] < 0 then write(a[i]*a[i]*a[i],’ ‘);
readln
end.