Viết chương trình nhập hai số nguyên a,b bất kỳ từ bàn phím. Tính tích, thương của 2 số nguyên vừa nhập
2 câu trả lời
uses crt;
var a,b:longint;
Begin
clrscr;
Writeln('Nhap a,b=');
Readln(a,b);
writeln('tich hai so la : a*b=',a*b);
writeln('thuong hai so la :a/b=',a/b);
Readln;
End.
program bt;
Var a,b,s,t:integer ;
Uses crt;
Begin
Clrscr;
Writeln ('nhap a:');
Readln (a);
Writeln ('nhap b:');
Readln (b);
s:=a*b;
t:=a/b;
Writeln ('tich:',s);
Writeln ('thuong:',t);
Readln;
End.
Câu hỏi trong lớp
Xem thêm