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

vtthuha

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

Hieudinh0611

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.

Vote (0) Phản hồi (0) 2 năm trước

tulipgoddessmaria

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cơ cấu tay quay con trượt thuộc loại cơ cấu biến đổi chuyển động nào

Vẽ đậu mầm ;-; Lề : Cóa ai đoán đc cái này là cái j chx ;-;

1/ Cho ΔABC có góc ACB= 90' + góc ABC. Kẻ đường cao AH của ΔABC CM: AH²= BH.CH 2/ Cho ΔABC (AB ≤ AC), đường phân giác AD. Vẽ tia Dx sao cho góc CDx= góc BAC ( tia Dx và A cùng phía đối với BC), tia Dx cắt AC ở E. CM: a/ ΔABC đồng dạng ΔDEC. b/ DE=DB.

mng giải giúp mình câu này chi tiết nhất dc k ạ

tóm tắt truyện ngắn những ngôi sao xa xôi của Lê Minh Khuê

Quy mô phát triển trong thời gian tới của nghề trồng cao su Helppp

Lịch sử và quá trình hình thành phát triển của nghề nuôi ong

làm logo chữ "MJ Gaming" thật đẹp và ngầu nha! Xấu = bc

1. The broth for beef noodles ____by stewing cow bones in a large pot. A. made B. is made C. are made D. make 2. I think Joe is _____________of the two students. A. the quietest B. quieter C. the quieter D. quietest 3. Drinking and driving is one of the most common ______ of traffic accidents. A. reasons B. effects C. sources D. causes 4. It is not easy to learn Chinese at home. Do you think I should _____an evening course? A. take B. have C. make D. get

Vẽ anime/chibi bùn NL:Tui cũng muốn có 1 cái

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến