a)Input:Hai số a và b
Output:Ước chung của hai số a và b
b)Input:Ba số a,b,c
Output:Số lớn nhất trong ba số
c)Input:Chiều dài b và chiều rộng a
Output:Diện tích và chu vi của thửa ruộng
Câu 4
a) ((a*a+b)*(a*a+b)*(1+c)*(1+c)*(1+c))/3
b)((x*x)/(3+y))+6-((a+b)*c)/(8+y)+z-((a/b)*(a/b))
c)a*x*x+b*x+c
d) ((a-b)/(c-d))+(a*a)
Câu 5
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a: ');readln(a);
write('Nhap b: ');readln(b);
if a=b then writeln('Hai so bang nhau') else
if a>b then writeln('a lon hon b') else
writeln('b lon hon a');
readln
end.
câu 6
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n: ');readln(n);
if n=0 then begin
writeln('Nhap so khac 0);
write('Nhap n: ');readln(n);
end;
if n mod 2=0 then writeln('Day la so chan') else
writeln('Day la so le');
readln
end.
Câu 6
uses crt;
begin
clrscr;
writeln('Rat vui khi duoc lam quen voi cac ban!');
writeln('Day la bai kiem tra hoc ki I Tin hoc lop 8!'); //
writeln('Chuong trinh Turbo Pascal rat la hay!')
readln
end.
