viết chương trình nhập vào 2 số nguyên a,b (b<>o).in ra màn hình tổng ,hiệu,tích,thương của 2 số vừa nhập
2 câu trả lời
Program
Tong_hieu_tich_thuong;
Uses
crt;
Var
a:
integer
;
b:
integer
;
Begin
clrscr;
write
(
'nhap so thu 1 :'
);
readln(a);
writeln
(
'ban vua nhap so: '
,a);
write
(
'nhap so thu hai :'
);
readln(b);
writeln
(
'ban vua nhap so thu 2: '
,b);
Writeln
(a,
'+'
,b,
'='
,a+b);
Writeln
(a,
'-'
,b,
'='
,a-b);
Writeln
(a,
'*'
,b,
'='
,a*b);
if
b<>
0
then
Writeln
(a,
'/'
,b,
'='
,a/b);
readln;
End
.
Program tinh_tong;
Var a,b:interger
c:real;
Begin
Write('hay nhap so a');
Readln(a);
Write('hay nhap so b');
Readln(b);
C:=a+b; (Chỗ nay bạn có thể đổi dấu ở a+b thành -*/ để có phép nhân , trừ chia)
Write('ket qua la');
Write(c);
Readln
End.