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
2 câu trả lời
uses crt;
var x, y, z : integer; tb : real;
f1, f2: text;
begin
clrscr;
assign(f1, 'songuyen.dat'); reset(f1);
assign(f2, 'tbc.dat'); rewrite(f2);
readln(f1, x, y, z);
if (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0)
then begin tb := (x + y + z)/ 3;
writeln(f2, tb : 2 : 1); end
else writeln(f2,'x, y, x khong chan');
close(f1); close(f2);
readln
end.
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.
