Viết chương trình cho máy tính nhận vào 3 số nguyên x, y, z từ file songuyen.dat. Nếu x, y, z là số chẵn thì tính trung bình cộng của 3 số nguyên, ngược lại thì thông báo “x, y, z không chẵn” ghi kết quả lên file tbc.dat
Viết chương trình cho máy tính nhận vào 3 số nguyên x, y, z từ file songuyen.dat. Nếu x, y, z là số chẵn thì tính trung bình cộng của 3 số nguyên, ngược lại thì thông báo “x, y, z không chẵn” ghi kết quả lên file tbc.dat
var x,y,z: longint;
begin
assign(input,’songuyen.dat’);
reset(input);
assign(output,’tbc.dat’);
rewrite(output);
read(x,y,z);
if ((x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0)) then write((x+y+z)/3:0:2) else write(‘x,y,z khong chan.’);
readln
end.