Question

Viết khai báo cho chương trình, nhập hai số thực từ bàn phím. Tính tổng của 2 số đó, nếu số thứ nhất lớn hơn số thứ 2, ngược lại thì tính tích của 2 số đó.

Answer 1

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

if a>b then writeln(a+b:4:2)

else writeln(a*b:4:2);

readln;

end.

Answer 2

uses crt;
var a,b:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  if(b>a)then writeln(a*b) else writeln(a+b);
 readln;
end.