Câu 1 : Cho hai số a và b , viết chương trình in ra màn hình ” ban dung roi ” nếu a > b ngược lại thì in ra màn hình ” ban sai roi ”
Câu 2 : Cho ba số a, b, c viết chương trình xét xem a,b,c có tạo thành tam giác vuông không ?
Câu 3 : Viết chương trình tính tổng của n số tự nhiên lẻ liên tiếp
Câu 1: (hình 1)
Câu 2: (hình 2)
Câu 3: (hình 3) Lưu ý: khi nhập n thì n phải nhỏ hơn 10
không thì sẽ bị mỏi tay
câu 1
uses crt;
var a,b:integer;
begin
clrscr;
write(‘Nhap a: ‘);readln(a);
write(‘Nhap b: ‘);readln(b);
if a>b then writeln(‘ban dung roi’) else writeln(‘ban sai roi’);
readln
end.
câu 2
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+b>c) and (b+c>a) and (c+a>b) then if a*a=b*b+c*c then
writeln(‘Day la tam giac vuong’) else writeln(‘Day khong phai la tam giac vuong’)
else writeln(‘Day khong phai ba canh cua tam giac’);
readln
end.
câu 3
uses crt;
var n,i,s:integer;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do if i mod 2=1 then s:=s+i;
writeln(‘Tong la: ‘,s);
readln
end.