viết chương trình nhập số nguyên n, tìm tất cả cặp số a,b sao cho a^2+b^2 là
số chính phương, đếm xem có bao nhiêu cặp số
1<=a<=b<=n
Những câu hỏi liên quan
14 tháng 5 2021 lúc 15:21
Câu 2: (5 điểm)
a) Hãy mô tả thuật toán chương trình nhập n số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
b)Viết chương trình nhập dãy số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím.
Câu 2:
a) Mô tả thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; i←1; t←0;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t và dem
-Bước 7: Kết thúc
Đúng 2
Bình luận (0)
Câu 2:
b) uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Cho mảng gồm n số nguyên a1, a2, a3, ...., an. Hãy lập trình để đếm xem trong mảng có bao nhiêu số chính phương? Em hãy viết đoạn chương trình nhập các phần tử của mảng bài toán trên.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if trunc(sqrt(a[i]))=sqrt(a[i]) then inc(dem);
writeln(dem);
readln;
end.
Đúng 1
Bình luận (0)
1.Cho 1 xâu kí tự tính xem trong số đó có bao nhiêu loại kí tự khác nhau (không phân biệt in hoa hay in thường)2.Viết chương trình nhập 1 mảng n số nguyên. Đếm số phần tử nhỏ hơn 0, đếm số phần tử lớn hơn 03.Nhập xâu gồm tất cả chữ và số xuất ra màn hình các số riêng và chữa riêng. Hãy đếm số lần xuất hiện của mỗi chữ mỗi sốgiải giúp e vs 19h 22/7 e nộp r
Đọc tiếp
1.Cho 1 xâu kí tự tính xem trong số đó có bao nhiêu loại kí tự khác nhau (không phân biệt in hoa hay in thường)
2.Viết chương trình nhập 1 mảng n số nguyên. Đếm số phần tử nhỏ hơn 0, đếm số phần tử lớn hơn 0
3.Nhập xâu gồm tất cả chữ và số xuất ra màn hình các số riêng và chữa riêng. Hãy đếm số lần xuất hiện của mỗi chữ mỗi số
"giải giúp e vs 19h 22/7 e nộp r"
- Viết chương trình nhập 1 mảng số nguyên gồm n phần tử - In ra tất cả phần tử của mảng vừa nhập - In ra các phần tử tròn chục. - Đếm xem có tất cả bao nhiêu phần tử tròn chục. In ra tổng số phần tử tròn chục.
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 10=0 then
begin
write(a[i]:4);
inc(dem);
t:=t+a[i];
end;
writeln;
writeln(dem);
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Cho mảng a gồm n số nguyên a1, a2, a3,.., an. Hãy viết chương trình đếm xem trong mảng có bao nhiêu số chính phương và viết các số đó ra ngoài màn hình. Yêu cầu(xác định bài toán, nêu ý tưởng, rồi mới viết chương trình).
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if (trunc(sqrt(a[i]))=sqrt(a[i]) then dem:=dem+1;
writeln(dem);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập N số nguyên a1,a2,...an.hay đếm xem có bao nhiêu số chia hết cho 3
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 3=0 then d:=d+1;
end;
write('Co ',d,' so chia het cho 3');
readln
end.
Đúng 0
Bình luận (0)
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] mod 3=0 then inc(dem);
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào số nguyên dương n, n <= 100 và dãy a gồm n số nguyên . Đếm xem có bao nhiêu phần tử có giá trị bằng số nguyên k
Viết chương trình nhập 1 mảng số nguyên gồm n phần tử
- in ra các phần tử của mảng vừa nhập
- In ra các phần tử có giá trị chẵn
- Đếm xem có tất cả bao nhiêu phần tử chẵn. In ra tổng số phần tử chẵn
uses crt;
var n,i,chan,tonchan:integer;
a:array[1..100] of integer;
begin
write('nhap n '); readln(n);
for i:=1 to n do
begin
write('a[i]='); readln(a[i]);
end;
writeln("in cac phan tu trong mang");
for i:=1 to n do
begin
writeln(a[i]);
end;
writeln("in cac phan tu chan");
chan:=0;
for i:=1 to n do
if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;
write('tong cac phan tu chan ',chan);
readln;
end.
Đúng 2
Bình luận (3)
Bt1: viết chương trình nhập vào 1 dãy số nguyên có N phần tử(N<=150). Đếm xem có bao nhiêu phần tử là bội của 3 và 5. Tính tổng các phần tử đó.
Bt2: viết chương trình nhập vào 1 dãy số nguyên có N phần tử (N<=150) và một số nguyên K tùy ý. Đếm xem có bao nhiêu phần tử bằng với K. In ra chỉ số các phần tử đó.
Giúp mik 2 bài này trong tối nay vs ạ Tks.
Bài 1:
Program HOC24;
var i,n,d : byte;
t: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Co ',d,' phan tu la boi cua 3 va 5');
write('Tong la: ',t);
readln
end.
Đúng 2
Bình luận (0)
Bài 2:
Program HOC24;
var i,n,k : byte;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Nhap k: '); readln(k);
for i:=1 to n do if a[i]=k then d:=d+1;
writeln('Co ',d,' phan tu bang ',k);
Write('Cac chi so do la: ');
for i:=1 to n do if a[i]=k then write(i,' ');
readln
end.
Đúng 2
Bình luận (1)
