Uses crt;

Var a, b, c:real;

Begin

Readln(a);

Readln(b);

Readln(c);

If (a + b > c) or (a + c > b) or (b + c > a) then writeln('tam giác')

Else writeln('Khong phai tam giac');

Readln

End.

Program HOC24;

var i,n,d: integer;

a: array[1..1000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

d:=0;

for i:=1 to n do if a[i] mod 5<>0 then d:=d+1;

write('Co ',d,' so khong chia het cho 5');

readln

end.

giải

uses crt;

var n,i,x:longint;

begin

write(' nhap so n: ');readln(n);

x:=0;

for i:=2 to n-1 do

if n mod i=0 then x:=1;

if x=0 then writeln(n,' la so nguyen to ')

else writeln(n,' ko la so nguyen to ');

readln

end.

thôi đau đầu lắm đọc mấy cái kia ko hỉu đề bài thì ai giải đc

#include <iostream>

using namespace std;

int main()
{
    int a, b, c;

    cout << "Nhap a!"; cin >> a;
    cout << "Nhap b!"; cin >> b;
    cout << "Nhap c!"; cin >> c;

    ((a + b) > c && (a + c) > b && (b + c) > a)?

    cout << "Co! Ba So" << " " << a << " " << b << " " << c << " Tao Thanh Ba Do Dai Canh Cua Mot Hinh Tam Giac!" :
    cout << "Khong! Ba So" << " " << a << " " << b << " " << c << " Khong Tao Thanh Ba Do Dai Canh Cua Mot Hinh Tam Giac!";
}

Bài 1: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

kt:=0;

for i:=2 to n-1 do 

 if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

readln;

end.

Bài 2: 

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

 if n mod i=0 then write(i:4);

readln;

end.

program tim_uoc;

uses crt;

var n,i,j:longint;

begin

clrscr;

write('nhap so n:');readln(n);

write('cac uoc cua n la:');

for i:=1 to n do

if n mod i=0 then write(i:3);

writeln;

j:=0;

for i:=1 to n do

if n mod i=0 then j:=j+1;

if j=2 then writeln(n,' la so nguyen to')

else writeln(n,' khong phai la so nguyen to');

readln;

end.