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.