Em cần giúp đỡ gì vậy nhỉ?

chua nhé bnnmn

chư

a nhé

Wtf

duong manh dung ...... ??? Câu hỏi có sai hay thiếu ko bạn ??? =.=

uses crt;

var a:array[2..1000000]of longint;

n,i,k,t,dem:longint;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (1<n) and (n<=1000000);

for i:=2 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

t:=0;

dem:=0;

for i:=2 to n do

if a[i] mod k=0 then

begin

t:=t+a[i];

inc(dem);

end;

writeln('Tong cac so chia het cho ',k,' la: ',t);

writeln('So phan tu chia het cho ',k,' la: ',dem);

readln;

end.

Bài đó có trong thii á bn

Theo Von Neumanm. Cấu trúc chung của máy tính gồm 3 phần:

+ Bộ xử lí trung tâm (CPU)

+ Bộ nhớ

+ Thiết bị vào/ra

* Bộ xử lí trung tâm(CPU) được xem là bộ não của máy tính thực hiện các chức năng tính toán, điều khiển, điều phối mọi hoạt động của máy tính theo sự chỉ dẫn của chương trình.

* Bộ nhớ dùng để lưu chương trình và dữ liệu. Được chia ra làm hai loại: bộ nhớ trong và bộ nhớ ngoaì.

uses crt;

var a,i,s:longint;

begin

clrscr;

write('a='); readln(a);

s:=0;

for i:=1 to a do

begin

if i mod 2=1 then s:=s+i

else s:=s-i;

end;

writeln('Ket qua la: ',s);

readln;

end.

Cảm ơn huấn luyện viên : Park Hang Seo nhiều❤

yeeh