viết công thức tính x=a+b:2 nhỏ hơn hoặc lớn hơn 5 dùng if. then else (pascal nha mng)

0 bình luận về “viết công thức tính x=a+b:2 nhỏ hơn hoặc lớn hơn 5 dùng if. then else (pascal nha mng)”

1. Công thức: if x>5 then writeln(‘x=a+b:2 lon hon 5’) else 

   if x<5 then writeln(‘x=a+b:2 nho hon 5’) else writeln(‘x=a+b:2 bang 5’);

   Áp dụng vào ct

   uses crt;

   var a,b,x:integer;

   begin

   clrscr;

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

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

   x:=a+b/2;

   if x>5 then writeln(‘x=a+b:2 lon hon 5’) else 

   if x<5 then writeln(‘x=a+b:2 nho hon 5’) else writeln(‘x=a+b:2 bang 5’);

   readln

   end.

   Bình luận