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