B1: program Tin_hoc;

uses crt;

var a,b,c:integer;

begin

clrscr;

writeln('Nhap 3 so a, b, c :');

readln(a);readln(b);readln(c);

If (a mod c = 0) and (b mod c = 0) then writeln('c la uoc cua a va b')

else writeln('c khong phai la uoc cua a va b');

readln;

end.

B2: program Tin_hoc;

uses crt;

var a,i,n:integer;

begin

clrscr;

write('Nhap so tu nhien a: '); readln(a);

i:=0;n:=0;

while i*i <> a then

begin

i:=i+1;

n:=n+1

end;

if n=1 then writeln(a,' la so chinh phuong') else writeln(a,' khong phai la so chinh phuong');

readln;

end.

CHO MIK CÂU TLHN NHA

Bài 1:

program kaito;

uses crt;

var a, b, c: integer;

begin

   clrscr;

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

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

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

   if (a mod c = 0) and (b mod c = 0) then writeln(c,' la uoc chung cua ',a,' va ',b) 

   else writeln(c,' khong phai uoc chung cua ',a,' va ',b);

   readln

end.

Bài 2:

program kaito;

uses crt;

var a, i: integer;

begin

   clrscr;

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

   if a<0 then writeln('Day khong phai so chinh phuong') else

   if trunc(sqrt(a))=sqrt(a) then writeln('Day la so chinh phuong') else

   writeln('Day khong phai so chinh phuong');

   readln

end.

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