Câu 1 Viết chương trình nhập vào 2 số a, b Tính tổng của 2 số a, b đó Uses crt; Var a,b integer; Begin Clrscr; Write(‘a=’);Readln(a); Write(‘b=’);Readln(b); Writeln(a+b); Readln; End Câu 2 Viết chương.
Câu 1: Viết chương trình nhập vào số a, b Tính tổng số a, b Uses crt; Var a,b:integer; Begin Clrscr; Write(‘a=’);Readln(a); Write(‘b=’);Readln(b); Writeln(a+b); Readln; End Câu 2: Viết chương trình nhập vào chiều rộng (a), chiều dài (b) hình chữ nhật Tính diện tích hình chữ nhật Uses crt; Var a,b:integer; Begin Clrscr; Write(‘a=’);Readln(a); Write(‘b=’);Readln(b); Writeln(‘Dien tich HCN=’,a*b); Readln; End Baøi 3: Viết chương trình nhập vào bán kính r hình tròn Tính chu vi diện tích hình tròn theo công thức: Chu vi CV=2*pi*r Diện tích S=Pi*r*r In kết lên hình Cách 1: Uses crt; Var r:integer; Begin Clrscr; Write(‘r=’);Readln(r); Writeln(‘Chu vi=’,?); Writeln(‘Dien tich =’,?); Readln; End Cách var r, cv,s:real; begin readln(r); cv:=2*pi*r; s:=pi*spr(r); writeln(‘chu vi:’,cv:9:2); wrteln(‘Dien tich:’,s:9:2); readln; end Baøi 4: Viết chương trình nhập độ dài cạnh a,b,c tam giác Tính chu vi, diện tích tam giác theo công thức: Chu vi CV=a+b+c Trong p=CV/2 Diện tích S=Sqrt(p*(p-a)*(p-b)*(p-c)) In kết lên hình var a,b,c:integer; p,cv,s:real; begin readln(a); readln(b); readln(c); cv:=a+b+c; p:=cv/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(‘chu vi=’,cv:9:2); writeln(‘dien tich=’,s:9:2); readln; end Bài 5: Viết chương trình nhập vào hai số a, b sau hoán đổi giá trị hai số var a,b,tam:integer; begin write(‘nhap a,b:’);readln(a,b); tam:=a; a:=b; b:=tam; writeln(‘gia tri a=’,a); writeln(‘gia tri b=’,b); readln; end Bài 6: Viết chương trình nhập số a b Tìm giá trị lớn nhỏ số Bài 7: Viết chương trình nhập số từ bàn phím, tìm số lớn số đó, in kết hình var a,b,c,max:integer; begin write(‘nhap a,b,c:’);readln(a,b,c); max:=a; if b>max then max:=b; if c>max then max:=c; writeln(‘so lon nhat la:’,max); readln; end Bài 8: Viết chương trình nhập vào số N Kiểm tra N chẵn hay lẻ var N:Integer; begin write(‘nhap N):’);readln(N); if N mod 2=0 then writeln(N, ‘la so chan) else writeln(N,’so le’); readln; end Bài : Viết chương trình giải phương trình bậc ax+b=0 với a,b nhập từ bàn phím var a,b:real; begin write(‘nhap a,b (a0):’);readln(a,b); if a0 then writeln(‘x=’,-b/a:9:2); if a=0 and b=0 then writeln(‘PT nghiem dung voi moi x’); if a=0 àn b0 then writeln(‘PT vo nghiem’); readln; end Bài 10: Viết chương trình giải phương trình bậc hai ax2+bx+c=0 với a,b,c nhập từ bàn phím var a,b,c,delta:real; begin write(‘nhap a,b,c:’);readln(a,b,c); delta:=b*b-4*a*c; if delta =8) then writeln('Xep loai Gioi'; else if (tbc>=6.5) and (tbc