Question

Viết chương trình tính tích sau t = 1,2 x 1 x 4 x 1,6 x 108 x 110 x 1/12 x 1/14 sử dụng câu lệnh for do help me

Answer 1

program TinhTich;
var
   tich: real;
   i: integer;
begin
   tich := 1;

   for i := 1 to 7 do
   begin
      case i of
         1: tich := tich * 1,2;
         2: tich := tich * 1;
         3: tich := tich * 4;
         4: tich := tich * 1.6;
         5: tich := tich * 108;
         6: tich := tich * 110;
         7: tich := tich * (1/12) * (1/14);
      end;
   end;

   writeln('Tich cua day so la: ', tich:0:2);
end.