1. Viết CT in ra số lẻ nhỏ hơn hoặc bằng n .
2.viết Ct cho phép nhập n số và cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy ?
Những câu hỏi liên quan
1. Viết CT in ra các số lê nhỏ hơn hoặc bằng n ( với n đc nhập).Sao cho 15 số lẻ đc in trên 1 dòng.
Program bai1;
uses crt;
var dem,n,i: integer;
begin
clrscr;
write('nhap n ='); readln(n);
dem:=0;
for i:= 1 to n do
if i mod 2 = 1 then
begin
write(i:3,',');
dem:= dem+1 ;
if dem mod 15 = 0 then writeln;
end;
readln;
end.
Đúng 0
Bình luận (0)
2. Viết CT nhập vào dãy số nguyên có n phần tử. In ra vị trí các phần tử âm.
3. Viết CT nhập vào dãy số tự nhiên có n phần tử. In ra giá trị các phần tử ở vị trí lẻ.
4. Tìm phần tử lớn nhất và nhỏ nhất trong 1 dãy phần tử.
2:
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(i:4);
readln;
end.
Đúng 1
Bình luận (2)
sao bài này giống bài tập cô mình giao thế nhỉ:>
Đúng 2
Bình luận (0)
4
var max,min,n,i: integer;
a:array [1..100] of integer;
begin
write('nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
write('so lon nhat trong day la: ',max);writeln;
write('so nho nhat trong day la: ',min);writeln;
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện:
a. In ra các số nguyên tố bé hơn hoặc bằng n.
b. In ra số nguyên tố nhỏ nhất không bé hơn n. c
. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n.
uses crt;
var n,i,o,d:integer;
function ktnt(n:integer): integer;
var i,d:integer;
begin
d:=0;
for i:=1 to sqrt(n) do
if (n mod i=0) then d:=d+1;
if d=2 then ktnt=0
else ktnt=1;
end;
begin
readln(n);
writeln(' so nguyen to be hon hoac bang n la'); {a}
for i:=1 to n do
if ktnt(i)=0 then writeln(i);
writeln('so nguyen to nho nhat khong be hon n');
o:=n;
while o>0 do
begin
if ktnt(o)=0 then
begin
write(o);
break;
end;
o:=o+1;
end;
writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');
o:=0;
o:=1;
d:=0;
for i:=o+2 to n do
begin
if ktnt(i)=0 then
begin
d:=d+1;
write(i,' ');
if d<2 then continue;
end;
d:=0;
writeln;
end;
readln;
end.
Đúng 0
Bình luận (1)
Câu 1: viết cú pháp vòng lặp và vẽ sơ đồ vòng lặp với số làn chưa biết trc và số lần viết trc ,vd minh hoạ?
Câu 2: viết ct tính tổng của n số tự nhiên đầu tiên (n đc nhập từ bàn phím)
Câu 3: viết ct in ra tổng các số chẵn nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)
Câu 4: viết ct in ra tổng các số lẻ nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)
Câu 5: viết ct nhập vào 1 dãy số 1 đến n , với n là sói nguyên đc nhạp từ bàn phím bé hơn hoặc bằng 100) và lần lượt thực hiện các coing việ...
Đọc tiếp
Câu 1: viết cú pháp vòng lặp và vẽ sơ đồ vòng lặp với số làn chưa biết trc và số lần viết trc ,vd minh hoạ?
Câu 2: viết ct tính tổng của n số tự nhiên đầu tiên (n đc nhập từ bàn phím)
Câu 3: viết ct in ra tổng các số chẵn nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)
Câu 4: viết ct in ra tổng các số lẻ nhỏ hơn hoặc bằng n (in ra đc nhập từ bàn phím)
Câu 5: viết ct nhập vào 1 dãy số 1 đến n , với n là sói nguyên đc nhạp từ bàn phím bé hơn hoặc bằng 100) và lần lượt thực hiện các coing việc sau:
A1, in ra dãy vừa nhập trên 1 hàng ngang , cách nhau 4 kí tự trống
A2, , in ra dãy vừa nhập trên 1 hàng dọc , cách nhau 4 kí tự trống
B, in ra màn hình gtri lớn nhất ,nhỏ nhất của dãy số
C, in ra tổng các phân tử của dãy?
1.Viết CT in tất cả các ước của 1 số n(n nhập từ bàn phím).
2.Viết CT in ra các số chẵn nhỏ hơn hoặc bằng n ( n nhập từ bàn phím).
1.
Program bai1;
uses crt;
var n,i: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
for i := 1 to n do
if n mod i = 0 then
write(i :2 , ' , ');
readln;
end.
Đúng 0
Bình luận (0)
2.
program bai2;
uses crt;
var i,n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
for i: 1 to n do
if i mod 2 = 0 then
write(i: 3 ,',');
readln;
end.
Đúng 0
Bình luận (0)
viết ct nhập 1 dãy số gồm n số từ bàn phím, in ra dãy vừa nhập, in ra số lẻ, chẳn trong dãy, tính tổng các số chẳn và lẻ, tính trung bình cộng các số
uses crt;
var a:array[1..100]of integer;
n,i,t1,t2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln(t1);
writeln(t2);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình cho nhập n số vào mảng có giới hạn 250 phần tử và in ra màn hình số nhỏ nhất trong các số vừa nhập là số thứ mấy
Xem chi tiết
uses crt;
var a:array[1..250]of integer;
i,n,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
for i:=1 to n do
if min=a[i] then vt:=i;
writeln('So nho nhat la: ',min,' va o vi tri thu ',vt);
readln;
end.
Đúng 0
Bình luận (0)
Viết CT a) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số b) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số nguyên nhỏ nhất trong dãy số Mn giúp em vs Mà 2 câu này riêng biệt nên mong mn đừng viết chung 1 CT
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
1.Viết chương trình nhập vào 1 dãy gồm n phần tử và in tổng các số lẻ ra màn hình
2.Viết chương trình cho phép nhập n số vào bàn phím và cho biết số nhỏ nhất trong các số vừa nhập ở vị trí thứ mấy
1
Function TinhTong(A:Arr100; N:integer):integer;
Var i,S: integer;
Begin
S:=0;
For i:=1 to N do
if n mod i=0 then
begin
S:=S+A[i];
TinhTong:=S;
end;
writeln('Tong: ',TinhTong(A,N));
readln;
end.
2
Uses Crt;
Var i,n,m:integer;
a:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap n = ');
Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(a[i]);
End;
m:=A[1];
For i:=2 to n do If A[i]>m then m:=A[i];
Writeln(m);
Readln;
End.
mình không chắc nha bạn kiểm tra thử xem
Đúng 0
Bình luận (0)