uses crt;
var s,i,n:integer;
a:array[1..200] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
end;
s:=0;
if a[i] mod 3 =0 then s:=s+a[i];
writeln('tong la',s);
readln;
end.
Bước 1: Nhập n, A[1..n]
Bước 2: i<-1; s<-0;
Bước 3: Nếu i>n thì thực hiện bước 5
Bước 4:
4.1: Nếu A[i] mod 3 = 0 thì s<-s+i;
4.2: i<-i+1;
Bước 5: Xuất s và kết thúc chương trình
làm thơ lục bát về mùa hè bạn bè cha mẹ
a) Thực hiện phép tính (-12-15):9-13.(-2) + (-64) :8 b) Tìm x biết 10 + 2|x| = 2.(3^2-1) c)Tìm số tự nhiên a,biết a chia hết cho 36 ; a chia hết cho 90 và 150<a<365
hệ hô hấp gồm nha cơ quan nào. phân tích đặc điểm cấu tạo của các chị quan hô hấp phù hợp vs chức năng của chúng
Tại sao bác sĩ lại lấy máu từ tĩnh mạch thay vì động mạch
Nêu ví dụ hệ thống sống là tự điều chỉnh ?
Tả về chú bộ đội (ko chép mạng)
Vẽ nhà đi nhé ! hay nhất đẹp nhất
Viết đoạn văn: What makes a good video games
Hãy cho biết 26g khí 02: a. Có bao nhiêu mol khí oxi ? b. Có bao nhiêu phân tử oxi? c. Có thể tích là bao nhiêu ( ở đktc )
Ở thời nhà lý,đời sống kinh tế văn hóa trong lĩnh vực nông nghiệp,thủ công nghiệp,thương nghiệp có sự chuyển biến j ? Sự thay đổi đó có ảnh hưởng thế nào đối vs đời sống nhân dân ?
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến