var f1, f2: text;
A: array[1..3] of byte;
Tc: word;
Begin
Assign(f1, 'bt.txt'); reset(f1);
Assign(f2, 'dulieu.inp'); rewrite(f);
Tc:=0;
For i:=1 to 3 do
Read(f1, a[i]);
If (a[i] mod 2 = 0) then tc:=tc+a[i];
End;
Write(f2, tc); close(f2);
End.
var fi,fo: text; i,tong: integer;begin assign(fi,'bt.txt'); reset(fi); while not eof(fi) do begin readln(fi,i); If i mod 2 = 0 then tong:=tong+i; end; close(fi); assign(fo,'dulieu.inp'); rewrite(fo); write(fo,tong); close(fo); end.
Giúp em mới ah 🥺🥺🥺🥺🥺🥺🥺🥺
Trình bày những quy định dành cho người đi xe đạp Hãy tự liên hệ xem bản thân đã thực hiện những quy định về trật tự chưa Theo em để đảm bảo an toàn giao thông cần thực hiện những biện pháp gì
Tìm hiểu về hệ thần kinh Giúp mình với ạ
1 . e hãy cho bt thế nào là môi trường và tài nguyên thiên nhiên ? hãy kể tên các yếu tố của môi trường và tài nguyên thiên nhiên 2. hãy nêu những việc làm , hành vi bảo vệ môi trường 3. ko nhớ hình như là hãy nêu các quyền cơ bản của trẻ e 4 hayc cho bt thế nào là di sản văn hóa ? phân biệt di sản văn hóa vật thể và di sản văn hóa phi vật thể Giúp mình trước 11h tối nay với ah đang cần gấp hứa trả đủ
Nêu những đặc điểm cấu tạo ngoài của ếch thích nghi với đời sống ở nước
Năm nay anh 14 tuổi, em 9 tuổi. Hỏi bao nhiêu năm nữa thì tỉ số tuổi của hai anh em là 3/4
làm nhanh giúp mik nha nhớ làm đầy đủ nha cảm ơn mn
1.Cho y=(3m-1)x+5.Tìm m để đồ thị tạo Ox góc tù,góc nhọn? 2.Đồ thị y=2x-3; y=x-1;y=mx+1 đồng quy khi m=?
VẼ ANIME BUỒN Ạ ! {HÔM NAY HỌC ĐIỂM THẤP, NHÓM LÀM ĐOÀN KẾT THÌ KO RA GÌ :( }
1 Để in văn bản trên máy tính ta làm như thể nào? 2 Các lệnh, định dạng, kí tự có trong nhóm lệnh và trên dãi lệnh nào? A nhóm Font-dãi lệnh Home B nhóm Paragaphl- dãi lện Home C nhóm Editing- dãi lệnh Home D nhóm Clipbosd-daix lệnh Home
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến