Các bạn ra những câu hỏi tương tự mà ý nghĩa giống các câu sau để cho tớ làm đượ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ả. (Ko phải viết ra kết quả và đặt câu hỏi có ý nghĩa tương tự)

program Kookie;

uses crt;

var   a, b, S, P, T, H: integer;(với CT câu a)

        a, b: integer;(với CT câu b)

begin

clrscr;

write(' phan tu thu nhat la:');

readln(a);

write('phan tu thu hai la:')'

readln(b);

*TH câu a:

T:= a+b;

S:=a*b;

H:=|a-b|;

P:= a/b;

writeln('tong hai so la :,'T);

Writeln(' tich hai so la: ,'S);

writeln(' Hieu hai so la:,'H);

writeln(' thuong hai so la:,'P);

readln

end.

*TH câu b:

if a> b then 

writeln(' so lon la:,'a);

else 

writeln('so lon la:'b);

readln

end.

Câu 1 :

uses crt;

var a, b : integer;

begin

clrscr;

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

writeln('Tong = ', a + b);

writeln('Hieu = ', a - b);

writeln('Tich = ', a * b);

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

readln

end.

Bài 2 :

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap hai so a, b : '); readln(a, b);

if a > b then write('a > b')

else if a < b then write('a < b')

else write('a = b');

readln

end.