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
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
Share
Lost your password? Please enter your email address. You will receive a link and will create a new password via email.
Please briefly explain why you feel this question should be reported.
Please briefly explain why you feel this answer should be reported.
Please briefly explain why you feel this user should be reported.
Hãy giúp đỡ người khác giải quyết rắc rối, và rắc rối của bạn sẽ biến mất.
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.
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
.