1. Nhập 1 số nếu số đó là số âm thì đổi nó thành số dương, các trường hợp khác thì tăng nó 1 đơn vị2. Nhập 1 số cho biết số đó có chia vừa hết cho 3 và vừa chia hết cho 5 hay không?3. Nhập 3 số bất kỳ kiểm tra 3 số đó có tạo thành tam giác hay không?Nhập 1 ký tự bất kỳ kiểm tra ký tữ đó là số, chữ hoa, chữ thường hay ký đặc...
Đọc tiếp
1. Nhập 1 số nếu số đó là số âm thì đổi nó thành số dương, các trường hợp khác thì tăng nó 1 đơn vị
2. Nhập 1 số cho biết số đó có chia vừa hết cho 3 và vừa chia hết cho 5 hay không?
3. Nhập 3 số bất kỳ kiểm tra 3 số đó có tạo thành tam giác hay không?
Nhập 1 ký tự bất kỳ kiểm tra ký tữ đó là số, chữ hoa, chữ thường hay ký đặc biệt
Bài 2:
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 15=0 then writeln(n,' vua chia het cho 3 vua chia het cho 5')
else writeln(n,' khong thoa man');
readln;
end.
Bài 1:
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<0 then writeln(-n)
else writeln(n+1);
readln;
end.