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.