Giúp e với, còn có 3 phút ạ! Viết chương trình tính tổng 5 số được nhập từ bàn phím và cho biết tổng đó chẵn hay lẻ

0 bình luận về “Giúp e với, còn có 3 phút ạ! Viết chương trình tính tổng 5 số được nhập từ bàn phím và cho biết tổng đó chẵn hay lẻ”

1. uses crt;
   var a,b,c,d,e:integer;
       S:longint;
   begin 
      clrscr;
      write(‘Nhap vao 5 so: ‘); readln(a,b,c,d,e);
      S:=a+b+c+d+e;
      writeln;
      write(‘Tong 5 so la: ‘,S);
      if S mod 2=0 then write(‘Tong chan’) else write(‘Tong le’);
      readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var a,b,c,d,e:integer;

         S:longint;

   begin clrscr;

      writeln(‘Nhap vao 5 so: ‘); readln(a,b,c,d,e);

       S:=a+b+c+d+e;

      writeln(‘Tong 5 so la: ‘,S);

      if S mod 2=0 then write(‘Tong chan’)

                             else write(‘Tong le);

   readln;

   end.

   Học tốt!

   Bình luận