Các bạn ra những câu hỏi tương tự giống các câu sau được ko vậy: a/ Viết chương trình nhập vào 2 số a,b. Tính tổng, hiệu, tích, thương và in ra kết quả trong chương trình pascal. b/ Viết chương trình nhập vào 2 số a,b. So sánh a,b và in ra kết quả.

(Bạn thông cảm, do đề không nói rõ nên mình cho các biến a, b đều là kiểu số thực để phòng a, b là STP)

Câu a:

program Tinh_toan;

uses crt;

var a, b: real;

Begin

   clrscr;

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

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

   writeln('a + b = ', a+b:0:2);

   writeln('a - b = ', a-b:0:2);

   writeln('a * b = ', a*b:0:2);

   writeln('a / b = ', a/b:0:2);

   readln;

End.

Câu b:

program So_sanh;

uses crt;

var a, b: real;

Begin

   clrscr;

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

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

   if (a>b) then writeln('a lon hon b')

      else if (a=b) then writeln('a bang b')

         else writeln('a be hon b');

   readln;

End.