nhập 2 số nguyên bất kì từ bàn phím .Tính và đưa ra ngoài màn hình tổng TBC của 2 số đó
2 câu trả lời
Used crt;
Var m,n;
Begin
Clrscr;
Writeln(‘Nhap m:’);Readln(m);
Write(‘Nhap n:’);Readln(n);
Clrscr;
Writeln(‘Tong la:’,m+n);
If m>n then writeln(‘Hieu la:’,m-n) else writeln(‘Hieu la:’,n-m);
Writeln(‘Tich la:’,m*n);
If n<>0 then write(‘Thuong la:’,m:n) else if m<>0 then write(‘Thuong la:’,n:m) else write(‘ Ko tinh dc’);
Readln;
End.
uses crt;
var a,b:longint;
begin
clrscr;
write('a,b=');readln(a,b);
writeln('TBC:',(a+b)/2:0:2);
readln;
end.
Câu hỏi trong lớp
Xem thêm
