Viết chương trình con tính Tích 3 số nguyên x,y,z

0 bình luận về “Viết chương trình con tính Tích 3 số nguyên x,y,z”

1. program tih_tich;

   uses crt;

   var x,y,z:integer;

   begin

          clrscr;

          write(‘Nhap x: ‘);   readln(x);

          write(‘Nhap y: ‘);   readln(y);

          write(‘Nhap z: ‘);   readln(z);

          write(‘Tich ‘,x,’ x ‘,y,’ x ‘,z,’= ‘,x*y*z);

          readln;

   end.

   Bình luận

2. var x, y, z: word;

   Begin 

       Write(‘nhap x, y, z: ‘); readln(x, y, z);

       Write(‘tich la: ‘, x*y*z);

       Readln

   End.

   Bình luận