Question

Viết chương trình tính tổng, hiệu, tích, thương của 2 số a và b với a,b được nhập từ bàn phím

Answer 1

Program Tong_hieu_tich_thuong;

uses crt;

var tong,hieu,tich,thuong: real;

a,b: integer;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); readln(b);

tong:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a div b;

writeln('tong cua 2 so a va b =' ,tong);

writeln('hieu cua 2 so a va b =' , hieu );

writeln('tich cua 2 so a va b =',tich);

writeln('thuong cua 2 so a va b =' ,thuong);

readln;

end.

Answer 2

Program tinh;

Uses crt;

Var

a,b,tich,tong,hieu:Integer;

thuong:Real;

Begin

Clrscr;

Write('nhap so a la '); readln(a);

Write('nhap so b la ‘); readln(b);

tong:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a/b;

Writeln('tong cua 2 so do la ' ,tong);

Writeln('hieu cua 2 so do la ' , hieu );

Writeln('tich cua 2 so do la ',tich);

Writeln('thuong cua 2 so do la ' ,thuong:10:2);

Readln;

End.