hãy nêu nhược điểm khi làm việc với biến mảng
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
NH
10
14 tháng 4 2021
Câu 1:
uses crt;
var s,i,m:integer;
begin
clrscr;
write('m='); readln(m);
s:=0;
i:=1;
while s<=m do
begin
s:=s+i;
i:=i+1;
end;
writeln(s);
readln;
end.
14 tháng 4 2021
Câu 2:
uses crt;
var s,i,m:integer;
begin
clrscr;
write('m='); readln(m);
s:=0;
i:=1;
while s<=m do
begin
s:=s+i;
i:=i+1;
end;
writeln(s-i);
readln;
end.
14 tháng 4 2021
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 30 do
if i mod 3=0 then t:=t+i;
writeln(t);
readln;
end.
NH
15
K
14 tháng 4 2021
mình ghi phần chính thôi nhé!
writeln('nhap n');readln(n);
1.For i:=1 to 9 do writeln(n,'x',i,'=',n*i);
2.for i:=1 to n do if (n mod i =0) and ( i mod 2 = 0) then writeln(i);
3.for i:=1 to n do if (n mod i =0) and ( i mod 2 = 1) then writeln(i);
4. uocchung:=1;for i:=1 to n do if n mod i = 0 then uocchung:=uocchung+i;
5. For i:=2 to n-1 do if n mod i = 0 then begin
if n = i then writeln( n,' la so nguyen to') else writeln(n, 'khong phai la so nguyen to');
14 tháng 4 2021
Câu 1:
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
readln;
end.
13 tháng 4 2021
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln(t);
readln;
end.
13 tháng 4 2021
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]<0 then inc(dem);
writeln(dem);
readln;
end.
13 tháng 4 2021
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
13 tháng 4 2021
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
kt:=0;
dem:=0;
for i:=1 to n do
if a[i]=x then
begin
kt:=1;
write(i:4);
inc(dem);
end;
if kt=0 then writeln('Khong co ',x,' trong day');
writeln(x,' xuat hien ',dem,' lan trong day');
readln;
end.
12 tháng 4 2021
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=11;
while i<=101 do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
readln;
end.
12 tháng 4 2021
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (10<a[i]) and (a[i]<20) then inc(dem);
writeln(dem);
readln;
end.
Sẽ khó xử lý nếu gặp những bài phức tạp như chuỗi con dài nhất