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!!!