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ẻ

2 câu trả lời

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!

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.