Đáp án: Viết chương trình nhập 2 số nguyên từ bàn phím Sau đó tính thương của 2 số nguyên và in ra màn hình kết quả tích của 2 số đó - uses crt; var a,b,S,Pinteger; begin write(ʹnhap aʹ);readln(a); write(ʹnhap bʹ);readln(b); S=a/b; P=a*b; writeln(ʹThương 2 số đó làʹ,S); writeln(ʹTích 2 số nguyên đó làʹ,P); readln; end

uses crt; var a,b,S,Pinteger; begin write(ʹnhap aʹ);readln(a); write(ʹnhap bʹ);readln(b); S=a/b; P=a*b; writeln(ʹThương 2 số đó làʹ,S); writeln(ʹTích 2 số nguyên đó làʹ,P); readln; end

program bai_giai;uses crt;var n,m,tichlongint;thuongreal;begin clrscr; write(ʹnhap so Mʹ);readln(m); write(ʹnhap so Nʹ);readln(n); tich=m*n; thuong=m/n; writeln(ʹtich cua M,N laʹ,tich); write(ʹthuong cua M,N laʹ,thuong42); readln;end

motnguyen6

1 năm trước

Viết chương trình nhập 2 số nguyên từ bàn phím. Sau đó tính thương của 2 số nguyên và in ra màn hình kết quả tích của 2 số đó

Xem đáp án

44 lượt xem

2 câu trả lời

duongvietbach2007

1 năm trước

uses crt;

var a,b,S,P:integer;

begin

write('nhap a:');readln(a);

write('nhap b:');readln(b);

S:=a/b;

P:=a*b;

writeln('Thương 2 số đó là:',S);

writeln('Tích 2 số nguyên đó là:',P);

readln;

end.

lamsauday

1 năm trước

program bai_giai;
uses crt;
var n,m,tich:longint;thuong:real;
begin
clrscr;
write('nhap so M:');readln(m);
write('nhap so N:');readln(n);
tich:=m*n;
thuong:=m/n;
writeln('tich cua M,N la:',tich);
write('thuong cua M,N la:',thuong:4:2);
readln;
end.