HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
A B C D E F G H I K L M N O P Q R S T V X Y Z
program chanle;
var
tl,tc,i,n,x:integer;
begin
write(' nhap n so nguyen: ');
readln(n);
for i:= 1 to n do
read(x);
if x mod 2 = 0 then
tc:=tc+x;
if x mod 2 <> 0 then
tl:=tl+x;
end;
writeln(' tong cac so chan la: ',tc);
write('tong cac so le la: ',tl);
readln;
end.
program whilefor;
s,i,n:integer;
write(' nhap n : ');
s:=0;
s:= s +i;
writeln(' tong khi dung vong lap for la : ',s);
i:=0;
while i<=n do
i:=i+1;
s:=s+i;
write(' tong khi dung vong lap while la : ',s);
s:=1; for i:= 1 to n do s:=s*(1+(1/sqr(n))); write(s);
0 1 1 0 1 0 0 1 0
program sothuc;
n:real;
write('nhap n : ');
write(n:0:1);
INP rồi nha bạn
cấu trụ câu lệnh như sau:
s:= s+a[i];
write(' tong cong: ',s);
phần nhập thì bạn tự nhập nhé:
Cấu trục câu lệnh:
if a[i] = k then d:= d+1;
write(' so phan tu mang bang k la: ',d);
a:array[1..32000] of integer;
write(' nhap so phan tu mang : ');
write('a[',i,']=');
readln(a[i]);
if i mod 2 <> 0 then
s:= s + a[i];
write(' tong cac phan tu co vi tri le la : ',s);
Ý TƯỞNG : nhập số phần tử rồi cho 1 vòng for từ 1 đền n rồi nhập từng phần tử mạng sau đó cho 1 vòng for đến n kiểm tra vị trị ( vị trí là biến mình dùng để chạy for ) có phải lẻ hay không bằng cách chia lấy dư cho 2 nếu là chia 2 mà dư 0 là chẵn còn nếu khác 0 là số lẻ rồi dùng biến cộng phần tử đỏ a[biến chạy] rồi in ra màn hình.
ôi chết dưới phần nhập n bạn thêm :
write(' nhap k: ');
readln(k);
CHO mình nha