Question

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

Answer 1

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.

Answer 2

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.

Answer 3

Bài 3: 

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.