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.

1 không

2 

 Program UCLN;

uses crt;

var a,b : integer;

begin

write ('nhap so a la ');readln (a);

write ('nhap so b la ');readln (b);

while a < > b do

if a >b then a := a - b else b := b - a ;

write ( ' UCLN la :' , a );

readln

end.

1: 

#include <bits/stdc++.h>

using namespace std;

int n,i;

bool kt;

int main()

{

cin>>n;

kt=true;

for (i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>1) cout<<"La so nguyen to";

else cout<<"Khong la so nguyen to";

return 0;

}

    a                                                                 Ta có:1-7= -6

                                                 Có số các cặp tương tự như cặp 1-7 la:

                                                                   40:2=20(cặp)

                                                       S là:-6x20=  -120

b                                                 Ta có:1=1+6x0

                                                             7=1+6x1

                                                             13=1+6x2

                                                              19=1+6x3

                                                Vậy số thứ 2018 của S là: 1+6x2017=12103

                                                                                        Đ/S:a -120

                                                                                             b 12103

                                                        Bạn nhớ nha,chúc bạn hoc giỏi.

Chọn D

Khai báo biến a và b thuộc kiểu Integer