Câu 1:

program kaito;

uses crt;

var a, b, c: real;

begin

   clrscr;

   write('Nhap a: '); readln(a);

   write('Nhap b: '); readln(b);

   write('Nhap c: '); readln(c);

   if (a+b)>c and (a+c>b) and (b+c>a) then writeln('day la 3 canh cua mot tam giac')

   else writeln('day khong phai 3 canh 1 tam giac');

readln

end.

Câu 2:

program kaito;

uses crt;

var n, i, s: integer;

begin

   clrscr;

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

   for i:=1 to n do s:=s+i;

   writeln('tong cac so tu 1 den ',n,' la: ',s);

   readln

end.

Câu 3:

program kaito;

uses crt;

var n, i, s: integer;

begin

   clrscr;

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

   s:=1;

   for i:=1 to n do s:=s*i;

   writeln('N! = ',s);

   readln

end.

câu 4:

program kaito;

uses crt;

var x, y, c, s: real;

begin

   clrscr;

   write('Nhap chieu dai: '); readln(x);

   write('Nhap chieu rong: '); readln(y);

      c:=(x+y)*2;

      s:=x*y;

   writeln('Chu vi hinh chu nhat la: ',c:0:2);

   writeln('Dien tich hinh chu nhat la: ',s:0:2);

readln

end.

Câu 5:

proram kaito;

uses crt;

var x: integer;

begin

   clrscr;

   write('Nhap so x: '); readln(x);

   if (x mod 2 = 0) and (x mod 3 = 0) then writeln('So x chia het cho 2 va 3')

   else writeln('So x khong chia het cho 2 va 3');

readln

end.

Câu 6:

program kaito;

uses crt;

var x, a, b: string[2];

begin

   clrscr;

   write('Nhap so x: '); readln(x);

   a:=copy(x,1,1);

   writeln('Chu so hang chuc la: ',a);

   b:=copy(x,2,1);

   writeln('Chu so hang don vi la: ',b);

   readln

end.      

CHÚC BẠN HỌC TỐT!!!

Bài 1:

uses crt;

var a, b, c: real;

begin

clrscr;

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

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

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

If (a+b>c) and (b+c>a) and (c+a>b) then writeln(' Day la ba do dai cua mot tam giac')

Else writeln(' Day khong phai la ba do dai cua mot tam giac');

Readln

End.

Bài 2:

uses crt;

var n, i: integer;

      T: real;

begin

clrscr;

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

T:=0;

For i:=1 to n do T:=T+i;

Writeln('Tong ,'n',so tu nhien dau tien la: ',s);

readln

end.

Bài 3:

use crt;

var n, i: integer;

      S: real;

begin

clrscr;

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

S:=1;

For i:=1 to n do S:=S*i;

Write('N! = ',S);

readln

end.

Bài 4:

uses crt;

var S, P, a, b: real;

begin

clrscr;

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

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

S:=a*b;

P:=(a+b)*2;

Writeln('Dien tich hinh CN do la: ',S);

Writeln('Chu vi hinh CN do la: ',P);

readln

end.

Bài 5:
uses crt;

var x: integer;

begin

clrscr;

write('Nhap so nguyen duong X: '); readln(x);

If (x mod 2 = 0) and (x mod 3 = 0) then writeln(x,' chia het cho 2 va 3')

Else writeln(x,' khong chia het cho 2 va 3);

readln

end.

Bài 6:

uses crt;

var x, t, e: String;

begin

clrscr;

Write('Nhap x = '); readln(x);

t:=copy(x,1,1);

e:=copy(x,2,1);

Writeln('Chu so hang chuc la: ',t);

Writeln('Chu so hang don vi la: ',e);

Readln

End.