Nhập ba số tự nhiên a,b,c từ bàn phím.viết chương trình in ra màn hình tích của ba số đó
1 câu trả lời
Program ct_tinh;
uses crt;
var a , b , c : integer;
x :real;
begin
clrscr;
write('nhap so a= ');readln(a);
write('nhap so b= ');readln(b);
write('nhap so c= ');readln(c);
X:=a*b*c;
writeln('X= ',X);
readln;
end.