Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Harunastu

Mọi người ơi, giúp mình với!!!

nguyễn an phát
5 tháng 7 2021 lúc 13:31

program taxi;
var i,n:integer;
s:array[1..100] of integer;
t:longint;
f,g:text;
begin
  assign(f,'BAI3.INP');reset(f);
  readln(f,n);
  for i:=1 to n do
  read(f,s[i]);
  close(f);
  assign(g,'BAI3.OUT');rewrite(g);
  for i:=1 to n do
  t:=t+s[i];
  if t mod 4=0 then writeln(g,(t div 4));
  if t mod 4<>0 then writeln(g,((t div 4)+1));
  close(g);
end.


Các câu hỏi tương tự
Kiwi
Xem chi tiết
Huong DatlanHuong
Xem chi tiết
nguyen le trung nghia
Xem chi tiết
Hân Chướng
Xem chi tiết
Dương Nguyễn Ngọc Tuấn
Xem chi tiết
Hoài Nguyễn Thu
Xem chi tiết
Khoa Nguyên Nguyễn
Xem chi tiết
Annie Ngo
Xem chi tiết
Anh Nguyễn Tú
Xem chi tiết