Bài 1 : Nhập vào độ dài 3 cạnh a, b, c của tam giác. Kiểm tra xem 3 cạnh đó có thể tạo thành 1 tam giác đó không
bài 2 : Nhập vào số nguyên a. Kiểm tra số a có chia hết cho cả 2 và 5 không
Bài 1 : Nhập vào độ dài 3 cạnh a, b, c của tam giác. Kiểm tra xem 3 cạnh đó có thể tạo thành 1 tam giác đó không
bài 2 : Nhập vào số nguyên a. Kiểm tra số a có chia hết cho cả 2 và 5 không
Program Ba_canh_tam_giac;
Uses crt;
Var a, b, c: real;
Begin
Clrscr;
write ( ‘Nhap ba so a, b, c:’ ) ; readln (a, b, c) ;
If (a+b>c) and (b+c>a) and (c+a>b) then
writeln ( ‘a, b, c khong la 3 canh cua mot tam giac! ‘ ) ;
else writeln ( ‘a, b, c khong la 3 canh cua mot tam giac! ‘ );
readln
end.
Bài 1:
program ctpt;
uses crt;
var a, b, c: real;
begin
clrscr;
write(‘Nhap canh a = ‘); readln(a);
write(‘Nhap canh b = ‘); readln(b);
write(‘Nhap canh c = ‘); readln(c);
if (a+b>c) or (a+c>b) or (b+c>a) then write(‘3 canh a, b, c co the tao thanh tam giac’) else
write(‘3 canh a, b, c khong the tao thanh tam giac’);
readln
end.
Bài 2:
program ctpt;
uses crt;
var a: integer;
begin
clrscr;
write(‘Nhap so nguyen a = ‘); readln(a);
if (a mod 2 = 0) and (a mod 5 = 0) then write(a, ‘ chia het cho ca 2 va 5’) else
write(a, ‘ khong chia het cho ca 2 va 5’);
readln
end.